Last updated on 2018-10-15 23:49:45 CEST.
| Package | ERROR | WARN | NOTE | OK |
|---|---|---|---|---|
| anytime | 1 | 11 | ||
| AsioHeaders | 12 | |||
| BH | 7 | 5 | ||
| binb | 12 | |||
| digest | 12 | |||
| drat | 12 | |||
| gaussfacts | 12 | |||
| gcbd | 1 | 8 | ||
| gettz | 2 | 10 | ||
| gunsales | 1 | 11 | ||
| inline | 12 | |||
| linl | 12 | |||
| littler | 6 | |||
| nanotime | 12 | |||
| pinp | 12 | |||
| pkgKitten | 12 | |||
| prrd | 12 | |||
| random | 1 | 11 | ||
| RApiDatetime | 12 | |||
| RApiSerialize | 12 | |||
| Rblpapi | 6 | 5 | ||
| Rcpp | 12 | |||
| RcppAnnoy | 12 | |||
| RcppAPT | 9 | |||
| RcppArmadillo | 1 | 1 | 6 | 4 |
| RcppBDT | 4 | 8 | ||
| RcppCCTZ | 12 | |||
| RcppClassic | 12 | |||
| RcppClassicExamples | 12 | |||
| RcppCNPy | 3 | 9 | ||
| RcppDE | 12 | |||
| RcppEigen | 7 | 5 | ||
| RcppExamples | 2 | 10 | ||
| RcppGetconf | 1 | 2 | 6 | |
| RcppGSL | 12 | |||
| RcppMsgPack | 10 | 2 | ||
| RcppNLoptExample | 11 | |||
| RcppQuantuccia | 12 | |||
| RcppRedis | 2 | 9 | ||
| RcppSMC | 1 | 11 | ||
| RcppStreams | 4 | 8 | ||
| RcppTOML | 12 | |||
| RcppXts | 12 | |||
| RcppZiggurat | 12 | |||
| RDieHarder | 3 | 4 | ||
| rfoaas | 12 | |||
| RInside | 12 | |||
| rmsfact | 12 | |||
| RProtoBuf | 3 | 3 | 5 | |
| RPushbullet | 12 | |||
| RQuantLib | 2 | 3 | 4 | |
| RVowpalWabbit | 2 | 1 | 5 | |
| sanitizers | 2 | 10 | ||
| tint | 7 | 5 | ||
| x13binary | 3 | 9 |
Current CRAN status: ERROR: 1, OK: 11
Version: 0.3.1
Check: tests
Result: ERROR
Running ‘allFormats.R’
Running ‘assertions.R’
Running ‘bulkTest.R’
Running ‘gh_issue_12.R’
Running ‘gh_issue_33.R’
Running ‘gh_issue_5.R’
Running ‘gh_issue_56.R’
Running ‘gh_issues_36_51.R’
Running ‘r_anytime.R’
Running ‘simpleTests.R’
Running ‘utilities.R’
Running ‘validate.R’
Running the tests in ‘tests/allFormats.R’ failed.
Complete output:
> options(digits.secs=6, width=70)
>
> library(anytime)
>
> ref <- format(as.POSIXct(c("2016-09-01 10:11:12", "2016-09-01 10:11:12.345678"),
+ "%Y-%m-%d %H:%M:%0S"))
Warning messages:
1: In strptime(xx, f, tz = tz) : unknown timezone '%Y-%m-%d %H:%M:%0S'
2: In as.POSIXct.POSIXlt(x) : unknown timezone '%Y-%m-%d %H:%M:%0S'
3: In strptime(x, f, tz = tz) : unknown timezone '%Y-%m-%d %H:%M:%0S'
4: In as.POSIXct.POSIXlt(as.POSIXlt(x, tz, ...), tz, ...) :
unknown timezone '%Y-%m-%d %H:%M:%0S'
5: In as.POSIXlt.POSIXct(x, tz) : unknown timezone '%Y-%m-%d %H:%M:%0S'
>
>
> stopifnot(ref == format(anytime(c("2016-09-01 10:11:12", "2016-09-01 10:11:12.345678"))))
Error: ref == format(anytime(c("2016-09-01 10:11:12", "2016-09-01 10:11:12.345678"))) are not all TRUE
Execution halted
Running the tests in ‘tests/bulkTest.R’ failed.
Complete output:
>
> ## we still have weird issues with some timezones so some testing needed
> ## and while Boost Date_Time instantiates the formats relative to a locale
> ## it remains tricky to change TZ on the fly
>
> library(anytime)
>
> verbose <- FALSE
>
> tzvec <- c( # courtesy of CCTZ
+ "Africa/Abidjan",
+ "Africa/Accra",
+ "Africa/Addis_Ababa",
+ "Africa/Algiers",
+ "Africa/Asmara",
+ "Africa/Asmera",
+ "Africa/Bamako",
+ "Africa/Bangui",
+ "Africa/Banjul",
+ "Africa/Bissau",
+ "Africa/Blantyre",
+ "Africa/Brazzaville",
+ "Africa/Bujumbura",
+ "Africa/Cairo",
+ "Africa/Casablanca",
+ "Africa/Ceuta",
+ "Africa/Conakry",
+ "Africa/Dakar",
+ "Africa/Dar_es_Salaam",
+ "Africa/Djibouti",
+ "Africa/Douala",
+ "Africa/El_Aaiun",
+ "Africa/Freetown",
+ "Africa/Gaborone",
+ "Africa/Harare",
+ "Africa/Johannesburg",
+ "Africa/Juba",
+ "Africa/Kampala",
+ "Africa/Khartoum",
+ "Africa/Kigali",
+ "Africa/Kinshasa",
+ "Africa/Lagos",
+ "Africa/Libreville",
+ "Africa/Lome",
+ "Africa/Luanda",
+ "Africa/Lubumbashi",
+ "Africa/Lusaka",
+ "Africa/Malabo",
+ "Africa/Maputo",
+ "Africa/Maseru",
+ "Africa/Mbabane",
+ "Africa/Mogadishu",
+ "Africa/Monrovia",
+ "Africa/Nairobi",
+ "Africa/Ndjamena",
+ "Africa/Niamey",
+ "Africa/Nouakchott",
+ "Africa/Ouagadougou",
+ "Africa/Porto-Novo",
+ "Africa/Sao_Tome",
+ "Africa/Timbuktu",
+ "Africa/Tripoli",
+ "Africa/Tunis",
+ "Africa/Windhoek",
+ "America/Adak",
+ "America/Anchorage",
+ "America/Anguilla",
+ "America/Antigua",
+ "America/Araguaina",
+ "America/Argentina/Buenos_Aires",
+ "America/Argentina/Catamarca",
+ "America/Argentina/ComodRivadavia",
+ "America/Argentina/Cordoba",
+ "America/Argentina/Jujuy",
+ "America/Argentina/La_Rioja",
+ "America/Argentina/Mendoza",
+ "America/Argentina/Rio_Gallegos",
+ "America/Argentina/Salta",
+ "America/Argentina/San_Juan",
+ "America/Argentina/San_Luis",
+ "America/Argentina/Tucuman",
+ "America/Argentina/Ushuaia",
+ "America/Aruba",
+ "America/Asuncion",
+ "America/Atikokan",
+ "America/Atka",
+ "America/Bahia",
+ "America/Bahia_Banderas",
+ "America/Barbados",
+ "America/Belem",
+ "America/Belize",
+ "America/Blanc-Sablon",
+ "America/Boa_Vista",
+ "America/Bogota",
+ "America/Boise",
+ "America/Buenos_Aires",
+ "America/Cambridge_Bay",
+ "America/Campo_Grande",
+ "America/Cancun",
+ "America/Caracas",
+ "America/Catamarca",
+ "America/Cayenne",
+ "America/Cayman",
+ "America/Chicago",
+ "America/Chihuahua",
+ "America/Coral_Harbour",
+ "America/Cordoba",
+ "America/Costa_Rica",
+ "America/Creston",
+ "America/Cuiaba",
+ "America/Curacao",
+ "America/Danmarkshavn",
+ "America/Dawson",
+ "America/Dawson_Creek",
+ "America/Denver",
+ "America/Detroit",
+ "America/Dominica",
+ "America/Edmonton",
+ "America/Eirunepe",
+ "America/El_Salvador",
+ "America/Ensenada",
+ "America/Fort_Wayne",
+ "America/Fortaleza",
+ "America/Glace_Bay",
+ "America/Godthab",
+ "America/Goose_Bay",
+ "America/Grand_Turk",
+ "America/Grenada",
+ "America/Guadeloupe",
+ "America/Guatemala",
+ "America/Guayaquil",
+ "America/Guyana",
+ "America/Halifax",
+ "America/Havana",
+ "America/Hermosillo",
+ "America/Indiana/Indianapolis",
+ "America/Indiana/Knox",
+ "America/Indiana/Marengo",
+ "America/Indiana/Petersburg",
+ "America/Indiana/Tell_City",
+ "America/Indiana/Vevay",
+ "America/Indiana/Vincennes",
+ "America/Indiana/Winamac",
+ "America/Indianapolis",
+ "America/Inuvik",
+ "America/Iqaluit",
+ "America/Jamaica",
+ "America/Jujuy",
+ "America/Juneau",
+ "America/Kentucky/Louisville",
+ "America/Kentucky/Monticello",
+ "America/Knox_IN",
+ "America/Kralendijk",
+ "America/La_Paz",
+ "America/Lima",
+ "America/Los_Angeles",
+ "America/Louisville",
+ "America/Lower_Princes",
+ "America/Maceio",
+ "America/Managua",
+ "America/Manaus",
+ "America/Marigot",
+ "America/Martinique",
+ "America/Matamoros",
+ "America/Mazatlan",
+ "America/Mendoza",
+ "America/Menominee",
+ "America/Merida",
+ "America/Metlakatla",
+ "America/Mexico_City",
+ "America/Miquelon",
+ "America/Moncton",
+ "America/Monterrey",
+ "America/Montevideo",
+ "America/Montreal",
+ "America/Montserrat",
+ "America/Nassau",
+ "America/New_York",
+ "America/Nipigon",
+ "America/Nome",
+ "America/Noronha",
+ "America/North_Dakota/Beulah",
+ "America/North_Dakota/Center",
+ "America/North_Dakota/New_Salem",
+ "America/Ojinaga",
+ "America/Panama",
+ "America/Pangnirtung",
+ "America/Paramaribo",
+ "America/Phoenix",
+ "America/Port-au-Prince",
+ "America/Port_of_Spain",
+ "America/Porto_Acre",
+ "America/Porto_Velho",
+ "America/Puerto_Rico",
+ "America/Rainy_River",
+ "America/Rankin_Inlet",
+ "America/Recife",
+ "America/Regina",
+ "America/Resolute",
+ "America/Rio_Branco",
+ "America/Rosario",
+ "America/Santa_Isabel",
+ "America/Santarem",
+ "America/Santiago",
+ "America/Santo_Domingo",
+ "America/Sao_Paulo",
+ "America/Scoresbysund",
+ "America/Shiprock",
+ "America/Sitka",
+ "America/St_Barthelemy",
+ "America/St_Johns",
+ "America/St_Kitts",
+ "America/St_Lucia",
+ "America/St_Thomas",
+ "America/St_Vincent",
+ "America/Swift_Current",
+ "America/Tegucigalpa",
+ "America/Thule",
+ "America/Thunder_Bay",
+ "America/Tijuana",
+ "America/Toronto",
+ "America/Tortola",
+ "America/Vancouver",
+ "America/Virgin",
+ "America/Whitehorse",
+ "America/Winnipeg",
+ "America/Yakutat",
+ "America/Yellowknife",
+ "Antarctica/Casey",
+ "Antarctica/Davis",
+ "Antarctica/DumontDUrville",
+ "Antarctica/Macquarie",
+ "Antarctica/Mawson",
+ "Antarctica/McMurdo",
+ "Antarctica/Palmer",
+ "Antarctica/Rothera",
+ "Antarctica/South_Pole",
+ "Antarctica/Syowa",
+ "Antarctica/Troll",
+ "Antarctica/Vostok",
+ "Arctic/Longyearbyen",
+ "Asia/Aden",
+ "Asia/Almaty",
+ "Asia/Amman",
+ "Asia/Anadyr",
+ "Asia/Aqtau",
+ "Asia/Aqtobe",
+ "Asia/Ashgabat",
+ "Asia/Ashkhabad",
+ "Asia/Baghdad",
+ "Asia/Bahrain",
+ "Asia/Baku",
+ "Asia/Bangkok",
+ "Asia/Beirut",
+ "Asia/Bishkek",
+ "Asia/Brunei",
+ "Asia/Calcutta",
+ "Asia/Chita",
+ "Asia/Choibalsan",
+ "Asia/Chongqing",
+ "Asia/Chungking",
+ "Asia/Colombo",
+ "Asia/Dacca",
+ "Asia/Damascus",
+ "Asia/Dhaka",
+ "Asia/Dili",
+ "Asia/Dubai",
+ "Asia/Dushanbe",
+ "Asia/Gaza",
+ "Asia/Harbin",
+ "Asia/Hebron",
+ "Asia/Ho_Chi_Minh",
+ "Asia/Hong_Kong",
+ "Asia/Hovd",
+ "Asia/Irkutsk",
+ "Asia/Istanbul",
+ "Asia/Jakarta",
+ "Asia/Jayapura",
+ "Asia/Jerusalem",
+ "Asia/Kabul",
+ "Asia/Kamchatka",
+ "Asia/Karachi",
+ "Asia/Kashgar",
+ "Asia/Kathmandu",
+ "Asia/Katmandu",
+ "Asia/Khandyga",
+ "Asia/Kolkata",
+ "Asia/Krasnoyarsk",
+ "Asia/Kuala_Lumpur",
+ "Asia/Kuching",
+ "Asia/Kuwait",
+ "Asia/Macao",
+ "Asia/Macau",
+ "Asia/Magadan",
+ "Asia/Makassar",
+ "Asia/Manila",
+ "Asia/Muscat",
+ "Asia/Nicosia",
+ "Asia/Novokuznetsk",
+ "Asia/Novosibirsk",
+ "Asia/Omsk",
+ "Asia/Oral",
+ "Asia/Phnom_Penh",
+ "Asia/Pontianak",
+ "Asia/Pyongyang",
+ "Asia/Qatar",
+ "Asia/Qyzylorda",
+ "Asia/Rangoon",
+ "Asia/Riyadh",
+ "Asia/Saigon",
+ "Asia/Sakhalin",
+ "Asia/Samarkand",
+ "Asia/Seoul",
+ "Asia/Shanghai",
+ "Asia/Singapore",
+ "Asia/Srednekolymsk",
+ "Asia/Taipei",
+ "Asia/Tashkent",
+ "Asia/Tbilisi",
+ "Asia/Tehran",
+ "Asia/Tel_Aviv",
+ "Asia/Thimbu",
+ "Asia/Thimphu",
+ "Asia/Tokyo",
+ "Asia/Ujung_Pandang",
+ "Asia/Ulaanbaatar",
+ "Asia/Ulan_Bator",
+ "Asia/Urumqi",
+ "Asia/Ust-Nera",
+ "Asia/Vientiane",
+ "Asia/Vladivostok",
+ "Asia/Yakutsk",
+ "Asia/Yekaterinburg",
+ "Asia/Yerevan",
+ "Atlantic/Azores",
+ "Atlantic/Bermuda",
+ "Atlantic/Canary",
+ "Atlantic/Cape_Verde",
+ "Atlantic/Faeroe",
+ "Atlantic/Faroe",
+ "Atlantic/Jan_Mayen",
+ "Atlantic/Madeira",
+ "Atlantic/Reykjavik",
+ "Atlantic/South_Georgia",
+ "Atlantic/St_Helena",
+ "Atlantic/Stanley",
+ "Australia/ACT",
+ "Australia/Adelaide",
+ "Australia/Brisbane",
+ "Australia/Broken_Hill",
+ "Australia/Canberra",
+ "Australia/Currie",
+ "Australia/Darwin",
+ "Australia/Eucla",
+ "Australia/Hobart",
+ "Australia/LHI",
+ "Australia/Lindeman",
+ "Australia/Lord_Howe",
+ "Australia/Melbourne",
+ "Australia/NSW",
+ "Australia/North",
+ "Australia/Perth",
+ "Australia/Queensland",
+ "Australia/South",
+ "Australia/Sydney",
+ "Australia/Tasmania",
+ "Australia/Victoria",
+ "Australia/West",
+ "Australia/Yancowinna",
+ "Brazil/Acre",
+ "Brazil/DeNoronha",
+ "Brazil/East",
+ "Brazil/West",
+ "CET",
+ "CST6CDT",
+ "Canada/Atlantic",
+ "Canada/Central",
+ "Canada/East-Saskatchewan",
+ "Canada/Eastern",
+ "Canada/Mountain",
+ "Canada/Newfoundland",
+ "Canada/Pacific",
+ "Canada/Saskatchewan",
+ "Canada/Yukon",
+ "Chile/Continental",
+ "Chile/EasterIsland",
+ "Cuba",
+ "EET",
+ "EST",
+ "EST5EDT",
+ "Egypt",
+ "Eire",
+ "Etc/GMT",
+ "Etc/GMT+0",
+ "Etc/GMT+1",
+ "Etc/GMT+10",
+ "Etc/GMT+11",
+ "Etc/GMT+12",
+ "Etc/GMT+2",
+ "Etc/GMT+3",
+ "Etc/GMT+4",
+ "Etc/GMT+5",
+ "Etc/GMT+6",
+ "Etc/GMT+7",
+ "Etc/GMT+8",
+ "Etc/GMT+9",
+ "Etc/GMT-0",
+ "Etc/GMT-1",
+ "Etc/GMT-10",
+ "Etc/GMT-11",
+ "Etc/GMT-12",
+ "Etc/GMT-13",
+ "Etc/GMT-14",
+ "Etc/GMT-2",
+ "Etc/GMT-3",
+ "Etc/GMT-4",
+ "Etc/GMT-5",
+ "Etc/GMT-6",
+ "Etc/GMT-7",
+ "Etc/GMT-8",
+ "Etc/GMT-9",
+ "Etc/GMT0",
+ "Etc/Greenwich",
+ "Etc/UCT",
+ "Etc/UTC",
+ "Etc/Universal",
+ "Etc/Zulu",
+ "Europe/Amsterdam",
+ "Europe/Andorra",
+ "Europe/Athens",
+ "Europe/Belfast",
+ "Europe/Belgrade",
+ "Europe/Berlin",
+ "Europe/Bratislava",
+ "Europe/Brussels",
+ "Europe/Bucharest",
+ "Europe/Budapest",
+ "Europe/Busingen",
+ "Europe/Chisinau",
+ "Europe/Copenhagen",
+ "Europe/Dublin",
+ "Europe/Gibraltar",
+ "Europe/Guernsey",
+ "Europe/Helsinki",
+ "Europe/Isle_of_Man",
+ "Europe/Istanbul",
+ "Europe/Jersey",
+ "Europe/Kaliningrad",
+ "Europe/Kiev",
+ "Europe/Lisbon",
+ "Europe/Ljubljana",
+ "Europe/London",
+ "Europe/Luxembourg",
+ "Europe/Madrid",
+ "Europe/Malta",
+ "Europe/Mariehamn",
+ "Europe/Minsk",
+ "Europe/Monaco",
+ "Europe/Moscow",
+ "Europe/Nicosia",
+ "Europe/Oslo",
+ "Europe/Paris",
+ "Europe/Podgorica",
+ "Europe/Prague",
+ "Europe/Riga",
+ "Europe/Rome",
+ "Europe/Samara",
+ "Europe/San_Marino",
+ "Europe/Sarajevo",
+ "Europe/Simferopol",
+ "Europe/Skopje",
+ "Europe/Sofia",
+ "Europe/Stockholm",
+ "Europe/Tallinn",
+ "Europe/Tirane",
+ "Europe/Tiraspol",
+ "Europe/Uzhgorod",
+ "Europe/Vaduz",
+ "Europe/Vatican",
+ "Europe/Vienna",
+ "Europe/Vilnius",
+ "Europe/Volgograd",
+ "Europe/Warsaw",
+ "Europe/Zagreb",
+ "Europe/Zaporozhye",
+ "Europe/Zurich",
+ "GB",
+ "GB-Eire",
+ "GMT",
+ "GMT+0",
+ "GMT-0",
+ "GMT0",
+ "Greenwich",
+ "HST",
+ "Hongkong",
+ "Iceland",
+ "Indian/Antananarivo",
+ "Indian/Chagos",
+ "Indian/Christmas",
+ "Indian/Cocos",
+ "Indian/Comoro",
+ "Indian/Kerguelen",
+ "Indian/Mahe",
+ "Indian/Maldives",
+ "Indian/Mauritius",
+ "Indian/Mayotte",
+ "Indian/Reunion",
+ "Iran",
+ "Israel",
+ "Jamaica",
+ "Japan",
+ "Kwajalein",
+ "Libya",
+ "MET",
+ "MST",
+ "MST7MDT",
+ "Mexico/BajaNorte",
+ "Mexico/BajaSur",
+ "Mexico/General",
+ "NZ",
+ "NZ-CHAT",
+ "Navajo",
+ "PRC",
+ "PST8PDT",
+ "Pacific/Apia",
+ "Pacific/Auckland",
+ "Pacific/Bougainville",
+ "Pacific/Chatham",
+ "Pacific/Chuuk",
+ "Pacific/Easter",
+ "Pacific/Efate",
+ "Pacific/Enderbury",
+ "Pacific/Fakaofo",
+ "Pacific/Fiji",
+ "Pacific/Funafuti",
+ "Pacific/Galapagos",
+ "Pacific/Gambier",
+ "Pacific/Guadalcanal",
+ "Pacific/Guam",
+ "Pacific/Honolulu",
+ "Pacific/Johnston",
+ "Pacific/Kiritimati",
+ "Pacific/Kosrae",
+ "Pacific/Kwajalein",
+ "Pacific/Majuro",
+ "Pacific/Marquesas",
+ "Pacific/Midway",
+ "Pacific/Nauru",
+ "Pacific/Niue",
+ "Pacific/Norfolk",
+ "Pacific/Noumea",
+ "Pacific/Pago_Pago",
+ "Pacific/Palau",
+ "Pacific/Pitcairn",
+ "Pacific/Pohnpei",
+ "Pacific/Ponape",
+ "Pacific/Port_Moresby",
+ "Pacific/Rarotonga",
+ "Pacific/Saipan",
+ "Pacific/Samoa",
+ "Pacific/Tahiti",
+ "Pacific/Tarawa",
+ "Pacific/Tongatapu",
+ "Pacific/Truk",
+ "Pacific/Wake",
+ "Pacific/Wallis",
+ "Pacific/Yap",
+ "Poland",
+ "Portugal",
+ "ROC",
+ "ROK",
+ "Singapore",
+ "Turkey",
+ "UCT",
+ "US/Alaska",
+ "US/Aleutian",
+ "US/Arizona",
+ "US/Central",
+ "US/East-Indiana",
+ "US/Eastern",
+ "US/Hawaii",
+ "US/Indiana-Starke",
+ "US/Michigan",
+ "US/Mountain",
+ "US/Pacific",
+ "US/Pacific-New",
+ "US/Samoa",
+ "UTC",
+ "Universal",
+ "W-SU",
+ "WET",
+ "Zulu"
+ )
>
> fullPOSIXctEx <- function(tstr) {
+ for (tz in tzvec) {
+ ## for anytime, the returned POSIXct object has the 'target' timezone (default is local)
+ at <- format( anytime(tstr, tz=tz) )
+ ## for as.POSIXct, we give tz when we format
+ pt <- format(as.POSIXct(tstr ), tz=tz)
+ if (verbose) cat(at, " -- ", pt, " -- ", tz, "\n")
+ stopifnot(all.equal(at, pt))
+ }
+ }
>
> fullDateEx <- function(tstr) {
+ for (tz in tzvec) {
+ at <- format(anydate(tstr))
+ pt <- format(as.Date(tstr))
+ if (verbose) cat(at, " -- ", pt, " -- ", tz, "\n")
+ stopifnot(all.equal(at, pt))
+ }
+ }
>
> fullPOSIXctEx("2016-07-11 12:13:14") # test summer
Error in fullPOSIXctEx("2016-07-11 12:13:14") : at and pt are not equal:
1 string mismatch
Calls: fullPOSIXctEx -> stopifnot
Execution halted
Running the tests in ‘tests/simpleTests.R’ failed.
Complete output:
>
> options(digits.secs=6)
>
> library(anytime)
>
> refT <- as.POSIXct(as.POSIXlt(format(as.Date("2016-01-01")+0:2)))
> refD <- as.Date("2016-01-01")+0:2
>
> ## Dates: Integer
> stopifnot(refD == anydate(20160101L + 0:2))
> stopifnot(refT == anytime(20160101L + 0:2, oldHeuristic=TRUE))
Error: refT == anytime(20160101L + 0:2, oldHeuristic = TRUE) are not all TRUE
Execution halted
Flavor: r-patched-solaris-x86
Current CRAN status: OK: 12
Current CRAN status: NOTE: 7, OK: 5
Version: 1.66.0-1
Check: installed package size
Result: NOTE
installed size is 144.8Mb
sub-directories of 1Mb or more:
include 144.7Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-windows-ix86+x86_64, r-patched-solaris-x86, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64
Current CRAN status: OK: 12
Current CRAN status: OK: 12
Current CRAN status: OK: 12
Current CRAN status: OK: 12
Current CRAN status: WARN: 1, NOTE: 8
Version: 0.2.6
Flags: --no-examples --no-tests --no-vignettes
Check: package dependencies
Result: NOTE
Package suggested but not available for checking: ‘gputools’
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64, r-release-linux-x86_64
Version: 0.2.6
Flags: --no-vignettes
Check: package dependencies
Result: NOTE
Package suggested but not available for checking: ‘gputools’
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.2.6
Check: package dependencies
Result: NOTE
Package suggested but not available for checking: ‘gputools’
Flavors: r-patched-solaris-x86, r-release-osx-x86_64, r-oldrel-osx-x86_64
Version: 0.2.6
Check: re-building of vignette outputs
Result: WARN
Error in re-building vignettes:
...
Warning in packageDescription("gputools") :
no package 'gputools' was found
Error: processing vignette 'gcbd.Rnw' failed with diagnostics:
at gcbd.Rnw:860, subscript out of bounds
Execution halted
Flavor: r-patched-solaris-x86
Version: 0.2.6
Check: re-building of vignette outputs
Result: NOTE
Error in re-building vignettes:
...
Warning in packageDescription("gputools") :
no package 'gputools' was found
Error: processing vignette 'gcbd.Rnw' failed with diagnostics:
at gcbd.Rnw:860, subscript out of bounds
Execution halted
Flavors: r-release-osx-x86_64, r-oldrel-osx-x86_64
Current CRAN status: NOTE: 2, OK: 10
Version: 0.0.3
Check: compiled code
Result: NOTE
File ‘gettz/libs/gettz.so’:
Found no calls to: ‘R_registerRoutines’, ‘R_useDynamicSymbols’
It is good practice to register native routines and to disable symbol
search.
See ‘Writing portable packages’ in the ‘Writing R Extensions’ manual.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Current CRAN status: WARN: 1, OK: 11
Version: 0.1.2
Check: re-building of vignette outputs
Result: WARN
Error in re-building vignettes:
...
Warning in engine$weave(file, quiet = quiet, encoding = enc) :
Pandoc (>= 1.12.3) and/or pandoc-citeproc not available. Falling back to R Markdown v1.
sh: line 1: 29372 Trace/BPT trap: 5 /Volumes/SSD-Data/Builds/R-dev-web/QA/Simon/packages/el-capitan-x86_64/Rlib/3.5/x13binary/bin/x13ashtml /var/folders/xn/m8dzdsgs7sg8q7jgflnqm8w80000gn/T//RtmpjUDYzi/x13717e8f67458/iofile -n -s 2> /dev/null
dyld: lazy symbol binding failed: Symbol not found: _mkostemp
Referenced from: /Volumes/SSD-Data/Builds/R-dev-web/QA/Simon/packages/el-capitan-x86_64/Rlib/3.5/x13binary/bin/../lib/libgfortran.3.dylib (which was built for Mac OS X 10.12)
Expected in: /usr/lib/libSystem.B.dylib
dyld: Symbol not found: _mkostemp
Referenced from: /Volumes/SSD-Data/Builds/R-dev-web/QA/Simon/packages/el-capitan-x86_64/Rlib/3.5/x13binary/bin/../lib/libgfortran.3.dylib (which was built for Mac OS X 10.12)
Expected in: /usr/lib/libSystem.B.dylib
Program received signal SIGTRAP: Trace/breakpoint trap.
Backtrace for this error:
#0 0x121f26579
#1 0x121f25945
#2 0x7fff93ac4529
Quitting from lines 33-34 (gunsales.Rmd)
Error: processing vignette 'gunsales.Rmd' failed with diagnostics:
X-13 has returned a non-zero exist status, which means that the current spec file cannot be processed for an unknown reason.
Execution halted
Flavor: r-release-osx-x86_64
Current CRAN status: OK: 12
Current CRAN status: OK: 12
Current CRAN status: OK: 6
Current CRAN status: OK: 12
Current CRAN status: OK: 12
Current CRAN status: OK: 12
Current CRAN status: OK: 12
Current CRAN status: NOTE: 1, OK: 11
Version: 0.2.6
Check: re-building of vignette outputs
Result: NOTE
Error in re-building vignettes:
...
Error in texi2dvi(file = file, pdf = TRUE, clean = clean, quiet = quiet, :
Running 'texi2dvi' on 'random-essay.tex' failed.
LaTeX errors:
! LaTeX Error: File `vmargin.sty' not found.
Type X to quit or <RETURN> to proceed,
or enter new name. (Default extension: sty)
! Emergency stop.
<read *>
l.4 \setpapersize
{USletter} % use USletter paper^^M
! ==> Fatal error occurred, no output PDF file produced!
Calls: buildVignettes -> texi2pdf -> texi2dvi
Execution halted
Flavor: r-oldrel-osx-x86_64
Current CRAN status: OK: 12
Current CRAN status: OK: 12
Current CRAN status: NOTE: 6, OK: 5
Version: 0.3.8
Check: installed package size
Result: NOTE
installed size is 15.2Mb
sub-directories of 1Mb or more:
blp 7.1Mb
libs 7.2Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-windows-ix86+x86_64, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64
Current CRAN status: NOTE: 12
Version: 0.12.19
Check: foreign function calls
Result: NOTE
Registration problem:
symbol ‘symbol’ in the local frame:
.Call(symbol)
See chapter ‘System and foreign language interfaces’ in the ‘Writing R
Extensions’ manual.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-linux-x86_64, r-release-linux-x86_64
Version: 0.12.19
Check: installed package size
Result: NOTE
installed size is 15.4Mb
sub-directories of 1Mb or more:
doc 2.7Mb
include 6.4Mb
libs 4.3Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-windows-ix86+x86_64, r-patched-solaris-x86, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64
Current CRAN status: OK: 12
Current CRAN status: OK: 9
Current CRAN status: ERROR: 1, WARN: 1, NOTE: 6, OK: 4
Version: 0.9.100.5.0
Check: installed package size
Result: NOTE
installed size is 8.0Mb
sub-directories of 1Mb or more:
include 5.5Mb
libs 1.5Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-windows-ix86+x86_64, r-patched-solaris-x86, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64
Version: 0.9.100.5.0
Check: tests
Result: ERROR
Running ‘doRUnit.R’ [215s/245s]
Running the tests in ‘tests/doRUnit.R’ failed.
Complete output:
> # Copyright (C) 2010 - 2013 Dirk Eddelbuettel, Romain Francois and Douglas Bates
> # Copyright (C) 2014 - 2017 Dirk Eddelbuettel
> # Earlier copyrights Gregor Gorjanc, Martin Maechler and Murray Stokely as detailed below
> #
> # This file is part of RcppArmadillo.
> #
> # RcppArmadillo is free software: you can redistribute it and/or
> # modify it under the terms of the GNU General Public License as
> # published by the Free Software Foundation, either version 2 of the
> # License, or (at your option) any later version.
> #
> # RcppArmadillo is distributed in the hope that it will be useful, but
> # WITHOUT ANY WARRANTY; without even the implied warranty of
> # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
> # General Public License for more details.
> #
> # You should have received a copy of the GNU General Public License
> # along with RcppArmadillo. If not, see <http://www.gnu.org/licenses/>.
>
> ## doRUnit.R --- Run RUnit tests
> ##
> ## with credits to package fUtilities in RMetrics
> ## which credits Gregor Gojanc's example in CRAN package 'gdata'
> ## as per the R Wiki http://wiki.r-project.org/rwiki/doku.php?id=developers:runit
> ## and changed further by Martin Maechler
> ## and more changes by Murray Stokely in HistogramTools
> ## and then used adapted in RProtoBuf
> ## and now used in Rcpp and here
> ##
> ## Dirk Eddelbuettel, Feb - June 2014
>
> if (requireNamespace("RUnit", quietly=TRUE) &&
+ requireNamespace("RcppArmadillo", quietly=TRUE)) {
+
+ library(RUnit)
+ library(RcppArmadillo)
+
+ ## Define tests
+ testSuite <- defineTestSuite(name="RcppArmadillo Unit Tests",
+ dirs=system.file("unitTests", package = "RcppArmadillo"),
+ testFuncRegexp = "^[Tt]est.+")
+
+ Sys.setenv("R_TESTS"="") # without this, we get (or used to get) unit test failures
+
+ tests <- runTestSuite(testSuite) # run tests
+ printTextProtocol(tests) # print results
+
+ ## Return success or failure to R CMD CHECK
+ if (getErrors(tests)$nFail > 0) stop("TEST FAILED!")
+ if (getErrors(tests)$nErr > 0) stop("TEST HAD ERRORS!")
+ if (getErrors(tests)$nTestFunc < 1) stop("NO TEST FUNCTIONS RUN!")
+ }
Executing test function test.armadillo.as_vector ... done successfully.
Executing test function test.armadillo.mat.const ... done successfully.
Executing test function test.armadillo.mat.const.ref ... done successfully.
Executing test function test.armadillo.mat.plain ... done successfully.
Executing test function test.armadillo.mat.ref ... done successfully.
Executing test function test.armadillo.sugar.ctor ... done successfully.
Executing test function test.armadillo.sugar.matrix.ctor ... done successfully.
Executing test function test.armadillo.unsigned.as ... done successfully.
Executing test function test.armadillo.vec.const ... done successfully.
Executing test function test.armadillo.vec.const.ref ... done successfully.
Executing test function test.armadillo.vec.plain ... done successfully.
Executing test function test.armadillo.vec.ref ... done successfully.
Executing test function test.as.Col ... done successfully.
Executing test function test.as.Mat ... done successfully.
Executing test function test.as.Row ... done successfully.
Executing test function test.cxmat ... done successfully.
Executing test function test.mtGlue ... done successfully.
Executing test function test.mtOp ... done successfully.
Executing test function test.sugar ... done successfully.
Executing test function test.sugar.cplx ... done successfully.
Executing test function test.wrap.Glue ... done successfully.
Executing test function test.wrap.Op ... done successfully.
Executing test function test.wrap.R ... done successfully.
Executing test function test.Rlapack ... done successfully.
Executing test function test.complex ... done successfully.
Executing test function test.cube ... done successfully.
Executing test function test.fastLm ... done successfully.
Executing test function test.fastLm.default ... done successfully.
Executing test function test.fastLm.formula ... done successfully.
Executing test function test.summary.fastLm ... done successfully.
Executing test function test.rmultinom ... Error in rmultinom(n, size, prob) : NA in probability vector
Error in rmultinomC(n, size, prob) : NAs not allowed in probability
Error in rmultinom(n, size, prob) : no positive probabilities
Error in rmultinomC(n, size, prob) : Not enough positive probabilities
done successfully.
Executing test function test.randi ... done successfully.
Executing test function test.randi.seed ... done successfully.
Executing test function test.randn ... done successfully.
Executing test function test.randn.seed ... done successfully.
Executing test function test.randu ... done successfully.
Executing test function test.randu.seed ... done successfully.
Executing test function test.sample ... done successfully.
Executing test function test.coo2dgt ... done successfully.
Executing test function test.csc2dgc ... done successfully.
Executing test function test.csr2dgr ... done successfully.
Executing test function test.other ... Error : Only CSC, COO and CSR matrices from SciPy are supported.
done successfully.
Executing test function test.as.sparse ... done successfully.
Executing test function test.sparse.addition ... done successfully.
Executing test function test.sparse.fromTriplet ... done successfully.
Executing test function test.sparse.iterators ... done successfully.
Executing test function test.sparse.list ... done successfully.
Executing test function test.sparse.multiplication ... done successfully.
Executing test function test.sparse.sqrt ... done successfully.
Executing test function test.sparse.square ... done successfully.
Executing test function test.sparse.transpose ... done successfully.
Executing test function test.speye ... done successfully.
Executing test function test.as.ddi2dgc ... done successfully.
Executing test function test.as.dgc2dgc ... dimnames(.) <- NULL: translated to
dimnames(.) <- list(NULL,NULL) <==> unname(.)
dimnames(.) <- NULL: translated to
dimnames(.) <- list(NULL,NULL) <==> unname(.)
done successfully.
Executing test function test.as.dgr2dgc ... done successfully.
Executing test function test.as.dgt2dgc ... done successfully.
Executing test function test.as.dsc2dgc ... done successfully.
Executing test function test.as.dsr2dgc ... done successfully.
Executing test function test.as.dst2dgc ... done successfully.
Executing test function test.as.dtc2dgc ... done successfully.
Executing test function test.as.dtr2dgc ... done successfully.
Executing test function test.as.dtt2dgc ... done successfully.
Executing test function test.as.ind2dgc ... done successfully.
Executing test function test.as.p2dgc ... done successfully.
Executing test function test.as.stm2dgc ... done successfully.
Executing test function test.as.stm2stm ... done successfully.
Executing test function test.stop ...
*** caught segfault ***
address 0x31, cause 'memory not mapped'
Traceback:
1: .Call(<pointer: 0x7f73474c0b40>, S)
2: asSpMat(lm)
3: eval(expr, envir = parent.frame())
4: doTryCatch(return(expr), name, parentenv, handler)
5: tryCatchOne(expr, names, parentenv, handlers[[1L]])
6: tryCatchList(expr, classes, parentenv, handlers)
7: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) dcall <- deparse(call)[1L] prefix <- paste("Error in", dcall, ": ") LONG <- 75L sm <- strsplit(conditionMessage(e), "\n")[[1L]] w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") if (is.na(w)) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))})
8: try(eval(expr, envir = parent.frame()), silent = silent)
9: checkException(asSpMat(lm))
10: func()
11: system.time(func(), gcFirst = RUnitEnv$.gcBeforeTest)
12: doTryCatch(return(expr), name, parentenv, handler)
13: tryCatchOne(expr, names, parentenv, handlers[[1L]])
14: tryCatchList(expr, classes, parentenv, handlers)
15: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) dcall <- deparse(call)[1L] prefix <- paste("Error in", dcall, ": ") LONG <- 75L sm <- strsplit(conditionMessage(e), "\n")[[1L]] w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") if (is.na(w)) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))})
16: try(system.time(func(), gcFirst = RUnitEnv$.gcBeforeTest))
17: .executeTestCase(funcName, envir = sandbox, setUpFunc = .setUp, tearDownFunc = .tearDown)
18: .sourceTestFile(testFile, testSuite$testFuncRegexp)
19: runTestSuite(testSuite)
An irrecoverable exception occurred. R is aborting now ...
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.9.100.5.0
Check: re-building of vignette outputs
Result: WARN
Error in re-building vignettes:
...
Error in rmultinom(n, size, prob) : NA in probability vector
Error in rmultinomC(n, size, prob) : NAs not allowed in probability
Error in rmultinom(n, size, prob) : no positive probabilities
Error in rmultinomC(n, size, prob) : Not enough positive probabilities
Error : Only CSC, COO and CSR matrices from SciPy are supported.
dimnames(.) <- NULL: translated to
dimnames(.) <- list(NULL,NULL) <==> unname(.)
dimnames(.) <- NULL: translated to
dimnames(.) <- list(NULL,NULL) <==> unname(.)
*** caught segfault ***
address 0x31, cause 'memory not mapped'
Traceback:
1: .Call(<pointer: 0x7f1ce815fb40>, S)
2: asSpMat(lm)
3: eval(expr, envir = parent.frame())
4: doTryCatch(return(expr), name, parentenv, handler)
5: tryCatchOne(expr, names, parentenv, handlers[[1L]])
6: tryCatchList(expr, classes, parentenv, handlers)
7: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) dcall <- deparse(call)[1L] prefix <- paste("Error in", dcall, ": ") LONG <- 75L sm <- strsplit(conditionMessage(e), "\n")[[1L]] w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") if (is.na(w)) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))})
8: try(eval(expr, envir = parent.frame()), silent = silent)
9: checkException(asSpMat(lm))
10: func()
11: system.time(func(), gcFirst = RUnitEnv$.gcBeforeTest)
12: doTryCatch(return(expr), name, parentenv, handler)
13: tryCatchOne(expr, names, parentenv, handlers[[1L]])
14: tryCatchList(expr, classes, parentenv, handlers)
15: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) dcall <- deparse(call)[1L] prefix <- paste("Error in", dcall, ": ") LONG <- 75L sm <- strsplit(conditionMessage(e), "\n")[[1L]] w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") if (is.na(w)) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))})
16: try(system.time(func(), gcFirst = RUnitEnv$.gcBeforeTest))
17: .executeTestCase(funcName, envir = sandbox, setUpFunc = .setUp, tearDownFunc = .tearDown)
18: .sourceTestFile(testFile, testSuite$testFuncRegexp)
19: runTestSuite(testSuite)
20: eval(expr, .GlobalEnv)
21: eval(expr, .GlobalEnv)
22: withVisible(eval(expr, .GlobalEnv))
23: doTryCatch(return(expr), name, parentenv, handler)
24: tryCatchOne(expr, names, parentenv, handlers[[1L]])
25: tryCatchList(expr, classes, parentenv, handlers)
26: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) dcall <- deparse(call)[1L] prefix <- paste("Error in", dcall, ": ") LONG <- 75L sm <- strsplit(conditionMessage(e), "\n")[[1L]] w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") if (is.na(w)) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && isTRUE(getOption("show.error.messages"))) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))})
27: try(withVisible(eval(expr, .GlobalEnv)), silent = TRUE)
28: evalFunc(ce, options)
29: tryCatchList(expr, classes, parentenv, handlers)
30: tryCatch(evalFunc(ce, options), finally = { cat("\n") sink()})
31: driver$runcode(drobj, chunk, chunkopts)
32: utils::Sweave(...)
33: engine$weave(file, quiet = quiet, encoding = enc)
34: doTryCatch(return(expr), name, parentenv, handler)
35: tryCatchOne(expr, names, parentenv, handlers[[1L]])
36: tryCatchList(expr, classes, parentenv, handlers)
37: tryCatch({ engine$weave(file, quiet = quiet, encoding = enc) setwd(startdir) find_vignette_product(name, by = "weave", engine = engine)}, error = function(e) { stop(gettextf("processing vignette '%s' failed with diagnostics:\n%s", file, conditionMessage(e)), domain = NA, call. = FALSE)})
38: buildVignettes(dir = "/data/gannet/ripley/R/packages/tests-clang/RcppArmadillo.Rcheck/vign_test/RcppArmadillo")
An irrecoverable exception occurred. R is aborting now ...
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.9.100.5.0
Check: re-building of vignette outputs
Result: WARN
Error in re-building vignettes:
...
Error in rmultinom(n, size, prob) : NA in probability vector
Error in rmultinomC(n, size, prob) : NAs not allowed in probability
Error in rmultinom(n, size, prob) : no positive probabilities
Error in rmultinomC(n, size, prob) : Not enough positive probabilities
Error : Only CSC, COO and CSR matrices from SciPy are supported.
In file included from /data/gannet/ripley/R/packages/tests-devel/RcppArmadillo.Rcheck/RcppArmadillo/include/RcppArmadillo.h:39,
from sparse.cpp:23:
/data/gannet/ripley/R/packages/tests-devel/RcppArmadillo.Rcheck/RcppArmadillo/include/RcppArmadilloSugar.h: In instantiation of ‘Rcpp::List Rcpp::simple_triplet_matrix(const arma::SpMat<eT>&) [with T = double; Rcpp::List = Rcpp::Vector<19>]’:
sparse.cpp:31:65: required from here
/data/gannet/ripley/R/packages/tests-devel/RcppArmadillo.Rcheck/RcppArmadillo/include/RcppArmadilloSugar.h:43:29: warning: comparison of integer expressions of different signedness: ‘int’ and ‘const uword’ {aka ‘const unsigned int’} [-Wsign-compare]
for (int cp=1, ie=0; ie < sm.n_nonzero; ie++) {
~~~^~~~~~~~~~~~~~
/data/gannet/ripley/R/packages/tests-devel/RcppArmadillo.Rcheck/RcppArmadillo/include/RcppArmadilloSugar.h:44:34: warning: comparison of integer expressions of different signedness: ‘int’ and ‘const uword’ {aka ‘const unsigned int’} [-Wsign-compare]
for (; p[cp] <= ie && cp < sm.n_cols; cp++)
~~~^~~~~~~~~~~
dimnames(.) <- NULL: translated to
dimnames(.) <- list(NULL,NULL) <==> unname(.)
dimnames(.) <- NULL: translated to
dimnames(.) <- list(NULL,NULL) <==> unname(.)
Error in asSpMat(lm) : lgCMatrix is not supported.
Error in asSpMat(L) : lgTMatrix is not supported.
dimnames(.) <- NULL: translated to
dimnames(.) <- list(NULL,NULL) <==> unname(.)
Error in asSpMat(nm) : ngCMatrix is not supported.
Error in asSpMat(ngt) : ngTMatrix is not supported.
Error in asSpMat(nM) : ntTMatrix is not supported.
Error in asSpMat(nsc) : nsCMatrix is not supported.
Error in asSpMat(ldi) : ldiMatrix is not supported.
Error in texi2dvi(file = file, pdf = TRUE, clean = clean, quiet = quiet, :
Running 'texi2dvi' on 'RcppArmadillo-unitTests.tex' failed.
LaTeX errors:
! LaTeX Error: File `vmargin.sty' not found.
Type X to quit or <RETURN> to proceed,
or enter new name. (Default extension: sty)
! Emergency stop.
<read *>
l.7 \setmargrb
{0.75in}{0.75in}{0.75in}{0.75in}^^M
! ==> Fatal error occurred, no output PDF file produced!
Calls: buildVignettes -> texi2pdf -> texi2dvi
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Current CRAN status: NOTE: 4, OK: 8
Version: 0.2.3
Check: installed package size
Result: NOTE
installed size is 8.9Mb
sub-directories of 1Mb or more:
libs 8.7Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-release-osx-x86_64, r-oldrel-osx-x86_64
Version: 0.2.3
Check: compiled code
Result: NOTE
File ‘RcppBDT/libs/RcppBDT.so’:
Found no calls to: ‘R_registerRoutines’, ‘R_useDynamicSymbols’
It is good practice to register native routines and to disable symbol
search.
See ‘Writing portable packages’ in the ‘Writing R Extensions’ manual.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Current CRAN status: OK: 12
Current CRAN status: OK: 12
Current CRAN status: OK: 12
Current CRAN status: WARN: 3, OK: 9
Version: 0.2.10
Check: re-building of vignette outputs
Result: WARN
Error in re-building vignettes:
...
tlmgr search --file --global '/lettrine.sty'
Trying to automatically install missing LaTeX packages...
tlmgr install lettrine
tlmgr: package repository http://mirror.ox.ac.uk/sites/ctan.org/systems/texlive/tlnet (verified)
tlmgr install: package already present: lettrine
tlmgr path add
add_link_dir_dir: /usr/local/share/info/dir exists; not making symlink.
tlmgr search --file --global '/lettrine.sty'
! LaTeX Error: File `lettrine.sty' not found.
! Emergency stop.
<read *>
Error: processing vignette 'RcppCNPy-intro.Rmd' failed with diagnostics:
Failed to compile RcppCNPy-intro.tex. See RcppCNPy-intro.log for more info.
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.2.10
Check: re-building of vignette outputs
Result: WARN
Error in re-building vignettes:
...
Warning in engine$weave(file, quiet = quiet, encoding = enc) :
Pandoc (>= 1.12.3) and/or pandoc-citeproc not available. Falling back to R Markdown v1.
Quitting from lines 95-104 (RcppCNPy-intro.Rmd)
Error: processing vignette 'RcppCNPy-intro.Rmd' failed with diagnostics:
Python shared library '' not found, Python bindings not loaded.
Execution halted
Flavor: r-patched-solaris-x86
Current CRAN status: OK: 12
Current CRAN status: NOTE: 7, OK: 5
Version: 0.3.3.4.0
Check: installed package size
Result: NOTE
installed size is 32.4Mb
sub-directories of 1Mb or more:
include 7.9Mb
libs 23.9Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-windows-ix86+x86_64, r-patched-solaris-x86, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64
Current CRAN status: NOTE: 2, OK: 10
Version: 0.1.8
Check: compiled code
Result: NOTE
File ‘RcppExamples/libs/RcppExamples.so’:
Found no calls to: ‘R_registerRoutines’, ‘R_useDynamicSymbols’
It is good practice to register native routines and to disable symbol
search.
See ‘Writing portable packages’ in the ‘Writing R Extensions’ manual.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Current CRAN status: ERROR: 1, NOTE: 2, OK: 6
Version: 0.0.2
Check: compiled code
Result: NOTE
File ‘RcppGetconf/libs/RcppGetconf.so’:
Found no calls to: ‘R_registerRoutines’, ‘R_useDynamicSymbols’
It is good practice to register native routines and to disable symbol
search.
See ‘Writing portable packages’ in the ‘Writing R Extensions’ manual.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.0.2
Check: examples
Result: ERROR
Running examples in ‘RcppGetconf-Ex.R’ failed
The error most likely occurred in:
> ### Name: getAll
> ### Title: Return all System Configuration Settings
> ### Aliases: getAll
>
> ### ** Examples
>
> head(getAll(), 30)
Error in getAll() : Memory allocation error
Calls: head -> getAll
Execution halted
Flavor: r-patched-solaris-x86
Current CRAN status: OK: 12
Current CRAN status: ERROR: 10, NOTE: 2
Version: 0.2.2
Check: tests
Result: ERROR
Running ‘simpleTests.R’ [0s/0s]
Running ‘tests.r’ [10s/11s]
Running the tests in ‘tests/tests.r’ failed.
Complete output:
> # Tests for testing out the functionality of the package, to make sure it isn't broken
>
> # some references
>
> # //https://github.com/msgpack/msgpack-c/blob/401460b7d99e51adc06194ceb458934b359d2139/include/msgpack/v1/adaptor/boost/msgpack_variant.hpp
> # //https://stackoverflow.com/questions/44725299/messagepack-c-how-to-iterate-through-an-unknown-data-structure
> # //https://stackoverflow.com/questions/37665361/how-to-determine-the-class-of-object-stored-in-sexp-in-rcpp
> # //https://stackoverflow.com/questions/12954852/booststatic-visitor-with-multiple-arguments
> # //https://stackoverflow.com/questions/25172419/how-can-i-get-the-sexptype-of-an-sexp-value
> # //https://github.com/wch/r-source/blob/48536f1756a88830076023db9566fbb2c1dbb29b/src/include/Rinternals.h#L1178-L1214
> # //https://stackoverflow.com/questions/16131462/how-to-use-boost-library-in-c-with-rcpp
>
>
> library(RcppMsgPack)
>
> # stopifnot <- function(...) cat(..., "\n")
>
> # Test atomic types
>
> # integer
> xpk <- msgpack_pack(1L)
> stopifnot(identical(msgpack_unpack(xpk), 1L))
>
> # double
> xpk <- msgpack_pack(1.54)
> stopifnot(identical(msgpack_unpack(xpk), 1.54))
>
> # string
> xpk <- msgpack_pack("sdfsdf")
> stopifnot(identical(msgpack_unpack(xpk), "sdfsdf"))
>
> # raw
> xpk <- msgpack_pack(as.raw(c(0x28, 0x4F)))
> stopifnot(identical(msgpack_unpack(xpk), as.raw(c(0x28, 0x4F))))
>
> # boolean
> xpk <- msgpack_pack(T)
> stopifnot(msgpack_unpack(xpk))
>
> # nil
> xpk <- msgpack_pack(NULL)
> stopifnot(is.null(msgpack_unpack(xpk)))
>
> # ext
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_unpack(xpk), x))
>
>
> if (Sys.info()[['sysname']] != "Windows") {
+ ## unicode or something characters - note this doesn't always work if you copy/paste into a terminal because of how terminals encode text, but if you source this file it works
+ x <- list('图书，通常在狭义上的理解是带有文字和图像的纸张的集合。书通常由墨水、纸张、羊皮纸或者其他材料固定在书脊上组成。组成书的一张纸称为一张，一张的一面称为一页。但随着科学技术的发展，狭义图书的概念也在扩展，制作书的材料也在改变，如电子格式的电子书。从广义理解的图书，则是一切传播讯息的媒介。书也指文学作品或者其中的一部分。在图书馆信息学中，书被称为专著，以区别于杂志、学术期刊、报纸等连载期刊。所有的书面作品（包括图书）的主体是文学。在小说和一些类型（如传记）中，书可能还要分成卷。对书特别喜爱的人被称为爱书者或藏书家，更随意的称呼是书虫或者书呆子。买书的地方叫书店，图书馆则是可以借阅书籍的地方。2010年，谷歌公司估计，从印刷术发明至今，大概出版了一亿三千万本不同书名的书籍。[1]')
+ xpk <- msgpack_pack(x)
+ xu <- msgpack_unpack(xpk)
+ stopifnot(identical(x, xu))
+ }
>
> # Complex nested object with lists and map
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xmap <- msgpack_map(key=letters[1:10], value=1:10)
> xmap$value[[3]] <- list(NULL)
> xmap$value[[4]] <- as.list(1:10)
> xmap$value[[4]][[3]] <- xmap
> xmap$value[[5]] <- x
> y <- 1:10
> names(y) <- letters[1:10]
> x <- list(1:10, y, "a", list(3,raw(4)), xmap)
> x <- msgpack_format(x)
> xpk <- msgpack_pack(x)
> xu <- msgpack_unpack(xpk)
>
> xs <- msgpack_simplify(x)
> xus <- msgpack_simplify(xu)
>
> stopifnot(identical(xs, xus))
>
> # named list can be used directly as input - should come out to a map, simplify to get a named vector
> x <- list(a=1L, b=2L)
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_simplify(msgpack_unpack(xpk)),c(a=1L, b=2L)))
>
> # multiple objects
> xpk <- msgpack_pack(1,2,3,5,"a", msgpack_format(1:10))
> xu <- msgpack_unpack(xpk)
> stopifnot(identical(msgpack_simplify(xu[[6]]), 1:10))
>
> # speed test
> if (requireNamespace("microbenchmark", quietly=TRUE)) {
+ x <- as.list(1:1e6)
+ print(microbenchmark::microbenchmark(xpk <- msgpack_pack(x), times=10)) # 500 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk), times=10)) # 150 ms
+ stopifnot(identical(xu, x))
+
+ ## vector input
+ x <- 1:1e7
+ print(microbenchmark::microbenchmark(xpk2 <- msgpack_pack(x), times=10)) # 50 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk2, simplify=T), times=10)) # 50 ms
+ stopifnot(identical(xu, x))
+ }
Unit: milliseconds
expr min lq mean median uq max
xpk <- msgpack_pack(x) 810.3722 850.8322 899.8122 901.5046 917.4518 1066.755
neval
10
Unit: microseconds
expr min lq mean median uq max neval
xu <- msgpack_unpack(xpk) 13.836 15.638 47.5888 16.106 16.954 329.237 10
Error: identical(xu, x) is not TRUE
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.2.2
Check: re-building of vignette outputs
Result: WARN
Error in re-building vignettes:
...
Quitting from lines 28-34 (vignette.rmd)
Error: processing vignette ‘vignette.rmd’ failed with diagnostics:
object ‘xpk’ not found
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-ix86+x86_64, r-patched-linux-x86_64, r-release-linux-x86_64, r-release-windows-ix86+x86_64, r-oldrel-windows-ix86+x86_64
Version: 0.2.2
Check: tests
Result: ERROR
Running ‘simpleTests.R’ [0s/1s]
Running ‘tests.r’ [7s/11s]
Running the tests in ‘tests/tests.r’ failed.
Complete output:
> # Tests for testing out the functionality of the package, to make sure it isn't broken
>
> # some references
>
> # //https://github.com/msgpack/msgpack-c/blob/401460b7d99e51adc06194ceb458934b359d2139/include/msgpack/v1/adaptor/boost/msgpack_variant.hpp
> # //https://stackoverflow.com/questions/44725299/messagepack-c-how-to-iterate-through-an-unknown-data-structure
> # //https://stackoverflow.com/questions/37665361/how-to-determine-the-class-of-object-stored-in-sexp-in-rcpp
> # //https://stackoverflow.com/questions/12954852/booststatic-visitor-with-multiple-arguments
> # //https://stackoverflow.com/questions/25172419/how-can-i-get-the-sexptype-of-an-sexp-value
> # //https://github.com/wch/r-source/blob/48536f1756a88830076023db9566fbb2c1dbb29b/src/include/Rinternals.h#L1178-L1214
> # //https://stackoverflow.com/questions/16131462/how-to-use-boost-library-in-c-with-rcpp
>
>
> library(RcppMsgPack)
>
> # stopifnot <- function(...) cat(..., "\n")
>
> # Test atomic types
>
> # integer
> xpk <- msgpack_pack(1L)
> stopifnot(identical(msgpack_unpack(xpk), 1L))
>
> # double
> xpk <- msgpack_pack(1.54)
> stopifnot(identical(msgpack_unpack(xpk), 1.54))
>
> # string
> xpk <- msgpack_pack("sdfsdf")
> stopifnot(identical(msgpack_unpack(xpk), "sdfsdf"))
>
> # raw
> xpk <- msgpack_pack(as.raw(c(0x28, 0x4F)))
> stopifnot(identical(msgpack_unpack(xpk), as.raw(c(0x28, 0x4F))))
>
> # boolean
> xpk <- msgpack_pack(T)
> stopifnot(msgpack_unpack(xpk))
>
> # nil
> xpk <- msgpack_pack(NULL)
> stopifnot(is.null(msgpack_unpack(xpk)))
>
> # ext
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_unpack(xpk), x))
>
>
> if (Sys.info()[['sysname']] != "Windows") {
+ ## unicode or something characters - note this doesn't always work if you copy/paste into a terminal because of how terminals encode text, but if you source this file it works
+ x <- list('图书，通常在狭义上的理解是带有文字和图像的纸张的集合。书通常由墨水、纸张、羊皮纸或者其他材料固定在书脊上组成。组成书的一张纸称为一张，一张的一面称为一页。但随着科学技术的发展，狭义图书的概念也在扩展，制作书的材料也在改变，如电子格式的电子书。从广义理解的图书，则是一切传播讯息的媒介。书也指文学作品或者其中的一部分。在图书馆信息学中，书被称为专著，以区别于杂志、学术期刊、报纸等连载期刊。所有的书面作品（包括图书）的主体是文学。在小说和一些类型（如传记）中，书可能还要分成卷。对书特别喜爱的人被称为爱书者或藏书家，更随意的称呼是书虫或者书呆子。买书的地方叫书店，图书馆则是可以借阅书籍的地方。2010年，谷歌公司估计，从印刷术发明至今，大概出版了一亿三千万本不同书名的书籍。[1]')
+ xpk <- msgpack_pack(x)
+ xu <- msgpack_unpack(xpk)
+ stopifnot(identical(x, xu))
+ }
>
> # Complex nested object with lists and map
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xmap <- msgpack_map(key=letters[1:10], value=1:10)
> xmap$value[[3]] <- list(NULL)
> xmap$value[[4]] <- as.list(1:10)
> xmap$value[[4]][[3]] <- xmap
> xmap$value[[5]] <- x
> y <- 1:10
> names(y) <- letters[1:10]
> x <- list(1:10, y, "a", list(3,raw(4)), xmap)
> x <- msgpack_format(x)
> xpk <- msgpack_pack(x)
> xu <- msgpack_unpack(xpk)
>
> xs <- msgpack_simplify(x)
> xus <- msgpack_simplify(xu)
>
> stopifnot(identical(xs, xus))
>
> # named list can be used directly as input - should come out to a map, simplify to get a named vector
> x <- list(a=1L, b=2L)
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_simplify(msgpack_unpack(xpk)),c(a=1L, b=2L)))
>
> # multiple objects
> xpk <- msgpack_pack(1,2,3,5,"a", msgpack_format(1:10))
> xu <- msgpack_unpack(xpk)
> stopifnot(identical(msgpack_simplify(xu[[6]]), 1:10))
>
> # speed test
> if (requireNamespace("microbenchmark", quietly=TRUE)) {
+ x <- as.list(1:1e6)
+ print(microbenchmark::microbenchmark(xpk <- msgpack_pack(x), times=10)) # 500 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk), times=10)) # 150 ms
+ stopifnot(identical(xu, x))
+
+ ## vector input
+ x <- 1:1e7
+ print(microbenchmark::microbenchmark(xpk2 <- msgpack_pack(x), times=10)) # 50 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk2, simplify=T), times=10)) # 50 ms
+ stopifnot(identical(xu, x))
+ }
Unit: milliseconds
expr min lq mean median uq max
xpk <- msgpack_pack(x) 652.7943 689.0947 902.0189 1008.578 1056.393 1142.772
neval
10
Unit: microseconds
expr min lq mean median uq max neval
xu <- msgpack_unpack(xpk) 9.63 10.076 38.834 10.292 11.314 290.491 10
Error: identical(xu, x) is not TRUE
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.2.2
Check: installed package size
Result: NOTE
installed size is 10.2Mb
sub-directories of 1Mb or more:
include 7.0Mb
libs 2.8Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-windows-ix86+x86_64, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64
Version: 0.2.2
Check: tests
Result: ERROR
Running ‘simpleTests.R’
Running ‘tests.r’ [12s/14s]
Running the tests in ‘tests/tests.r’ failed.
Complete output:
> # Tests for testing out the functionality of the package, to make sure it isn't broken
>
> # some references
>
> # //https://github.com/msgpack/msgpack-c/blob/401460b7d99e51adc06194ceb458934b359d2139/include/msgpack/v1/adaptor/boost/msgpack_variant.hpp
> # //https://stackoverflow.com/questions/44725299/messagepack-c-how-to-iterate-through-an-unknown-data-structure
> # //https://stackoverflow.com/questions/37665361/how-to-determine-the-class-of-object-stored-in-sexp-in-rcpp
> # //https://stackoverflow.com/questions/12954852/booststatic-visitor-with-multiple-arguments
> # //https://stackoverflow.com/questions/25172419/how-can-i-get-the-sexptype-of-an-sexp-value
> # //https://github.com/wch/r-source/blob/48536f1756a88830076023db9566fbb2c1dbb29b/src/include/Rinternals.h#L1178-L1214
> # //https://stackoverflow.com/questions/16131462/how-to-use-boost-library-in-c-with-rcpp
>
>
> library(RcppMsgPack)
>
> # stopifnot <- function(...) cat(..., "\n")
>
> # Test atomic types
>
> # integer
> xpk <- msgpack_pack(1L)
> stopifnot(identical(msgpack_unpack(xpk), 1L))
>
> # double
> xpk <- msgpack_pack(1.54)
> stopifnot(identical(msgpack_unpack(xpk), 1.54))
>
> # string
> xpk <- msgpack_pack("sdfsdf")
> stopifnot(identical(msgpack_unpack(xpk), "sdfsdf"))
>
> # raw
> xpk <- msgpack_pack(as.raw(c(0x28, 0x4F)))
> stopifnot(identical(msgpack_unpack(xpk), as.raw(c(0x28, 0x4F))))
>
> # boolean
> xpk <- msgpack_pack(T)
> stopifnot(msgpack_unpack(xpk))
>
> # nil
> xpk <- msgpack_pack(NULL)
> stopifnot(is.null(msgpack_unpack(xpk)))
>
> # ext
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_unpack(xpk), x))
>
>
> if (Sys.info()[['sysname']] != "Windows") {
+ ## unicode or something characters - note this doesn't always work if you copy/paste into a terminal because of how terminals encode text, but if you source this file it works
+ x <- list('图书，通常在狭义上的理解是带有文字和图像的纸张的集合。书通常由墨水、纸张、羊皮纸或者其他材料固定在书脊上组成。组成书的一张纸称为一张，一张的一面称为一页。但随着科学技术的发展，狭义图书的概念也在扩展，制作书的材料也在改变，如电子格式的电子书。从广义理解的图书，则是一切传播讯息的媒介。书也指文学作品或者其中的一部分。在图书馆信息学中，书被称为专著，以区别于杂志、学术期刊、报纸等连载期刊。所有的书面作品（包括图书）的主体是文学。在小说和一些类型（如传记）中，书可能还要分成卷。对书特别喜爱的人被称为爱书者或藏书家，更随意的称呼是书虫或者书呆子。买书的地方叫书店，图书馆则是可以借阅书籍的地方。2010年，谷歌公司估计，从印刷术发明至今，大概出版了一亿三千万本不同书名的书籍。[1]')
+ xpk <- msgpack_pack(x)
+ xu <- msgpack_unpack(xpk)
+ stopifnot(identical(x, xu))
+ }
>
> # Complex nested object with lists and map
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xmap <- msgpack_map(key=letters[1:10], value=1:10)
> xmap$value[[3]] <- list(NULL)
> xmap$value[[4]] <- as.list(1:10)
> xmap$value[[4]][[3]] <- xmap
> xmap$value[[5]] <- x
> y <- 1:10
> names(y) <- letters[1:10]
> x <- list(1:10, y, "a", list(3,raw(4)), xmap)
> x <- msgpack_format(x)
> xpk <- msgpack_pack(x)
> xu <- msgpack_unpack(xpk)
>
> xs <- msgpack_simplify(x)
> xus <- msgpack_simplify(xu)
>
> stopifnot(identical(xs, xus))
>
> # named list can be used directly as input - should come out to a map, simplify to get a named vector
> x <- list(a=1L, b=2L)
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_simplify(msgpack_unpack(xpk)),c(a=1L, b=2L)))
>
> # multiple objects
> xpk <- msgpack_pack(1,2,3,5,"a", msgpack_format(1:10))
> xu <- msgpack_unpack(xpk)
> stopifnot(identical(msgpack_simplify(xu[[6]]), 1:10))
>
> # speed test
> if (requireNamespace("microbenchmark", quietly=TRUE)) {
+ x <- as.list(1:1e6)
+ print(microbenchmark::microbenchmark(xpk <- msgpack_pack(x), times=10)) # 500 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk), times=10)) # 150 ms
+ stopifnot(identical(xu, x))
+
+ ## vector input
+ x <- 1:1e7
+ print(microbenchmark::microbenchmark(xpk2 <- msgpack_pack(x), times=10)) # 50 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk2, simplify=T), times=10)) # 50 ms
+ stopifnot(identical(xu, x))
+ }
Unit: seconds
expr min lq mean median uq max
xpk <- msgpack_pack(x) 1.024102 1.072019 1.19681 1.139383 1.291915 1.565603
neval
10
Unit: microseconds
expr min lq mean median uq max neval
xu <- msgpack_unpack(xpk) 17.79 18.689 67.1671 20.273 22.181 481.852 10
Error: identical(xu, x) is not TRUE
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.2.2
Check: tests
Result: ERROR
Running ‘simpleTests.R’
Running ‘tests.r’
Running the tests in ‘tests/tests.r’ failed.
Complete output:
> # Tests for testing out the functionality of the package, to make sure it isn't broken
>
> # some references
>
> # //https://github.com/msgpack/msgpack-c/blob/401460b7d99e51adc06194ceb458934b359d2139/include/msgpack/v1/adaptor/boost/msgpack_variant.hpp
> # //https://stackoverflow.com/questions/44725299/messagepack-c-how-to-iterate-through-an-unknown-data-structure
> # //https://stackoverflow.com/questions/37665361/how-to-determine-the-class-of-object-stored-in-sexp-in-rcpp
> # //https://stackoverflow.com/questions/12954852/booststatic-visitor-with-multiple-arguments
> # //https://stackoverflow.com/questions/25172419/how-can-i-get-the-sexptype-of-an-sexp-value
> # //https://github.com/wch/r-source/blob/48536f1756a88830076023db9566fbb2c1dbb29b/src/include/Rinternals.h#L1178-L1214
> # //https://stackoverflow.com/questions/16131462/how-to-use-boost-library-in-c-with-rcpp
>
>
> library(RcppMsgPack)
>
> # stopifnot <- function(...) cat(..., "\n")
>
> # Test atomic types
>
> # integer
> xpk <- msgpack_pack(1L)
> stopifnot(identical(msgpack_unpack(xpk), 1L))
>
> # double
> xpk <- msgpack_pack(1.54)
> stopifnot(identical(msgpack_unpack(xpk), 1.54))
>
> # string
> xpk <- msgpack_pack("sdfsdf")
> stopifnot(identical(msgpack_unpack(xpk), "sdfsdf"))
>
> # raw
> xpk <- msgpack_pack(as.raw(c(0x28, 0x4F)))
> stopifnot(identical(msgpack_unpack(xpk), as.raw(c(0x28, 0x4F))))
>
> # boolean
> xpk <- msgpack_pack(T)
> stopifnot(msgpack_unpack(xpk))
>
> # nil
> xpk <- msgpack_pack(NULL)
> stopifnot(is.null(msgpack_unpack(xpk)))
>
> # ext
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_unpack(xpk), x))
>
>
> if (Sys.info()[['sysname']] != "Windows") {
+ ## unicode or something characters - note this doesn't always work if you copy/paste into a terminal because of how terminals encode text, but if you source this file it works
+ x <- list('图书，通常在狭义上的理解是带有文字和图像的纸张的集合。书通常由墨水、纸张、羊皮纸或者其他材料固定在书脊上组成。组成书的一张纸称为一张，一张的一面称为一页。但随着科学技术的发展，狭义图书的概念也在扩展，制作书的材料也在改变，如电子格式的电子书。从广义理解的图书，则是一切传播讯息的媒介。书也指文学作品或者其中的一部分。在图书馆信息学中，书被称为专著，以区别于杂志、学术期刊、报纸等连载期刊。所有的书面作品（包括图书）的主体是文学。在小说和一些类型（如传记）中，书可能还要分成卷。对书特别喜爱的人被称为爱书者或藏书家，更随意的称呼是书虫或者书呆子。买书的地方叫书店，图书馆则是可以借阅书籍的地方。2010年，谷歌公司估计，从印刷术发明至今，大概出版了一亿三千万本不同书名的书籍。[1]')
+ xpk <- msgpack_pack(x)
+ xu <- msgpack_unpack(xpk)
+ stopifnot(identical(x, xu))
+ }
>
> # Complex nested object with lists and map
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xmap <- msgpack_map(key=letters[1:10], value=1:10)
> xmap$value[[3]] <- list(NULL)
> xmap$value[[4]] <- as.list(1:10)
> xmap$value[[4]][[3]] <- xmap
> xmap$value[[5]] <- x
> y <- 1:10
> names(y) <- letters[1:10]
> x <- list(1:10, y, "a", list(3,raw(4)), xmap)
> x <- msgpack_format(x)
> xpk <- msgpack_pack(x)
> xu <- msgpack_unpack(xpk)
>
> xs <- msgpack_simplify(x)
> xus <- msgpack_simplify(xu)
>
> stopifnot(identical(xs, xus))
>
> # named list can be used directly as input - should come out to a map, simplify to get a named vector
> x <- list(a=1L, b=2L)
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_simplify(msgpack_unpack(xpk)),c(a=1L, b=2L)))
>
> # multiple objects
> xpk <- msgpack_pack(1,2,3,5,"a", msgpack_format(1:10))
> xu <- msgpack_unpack(xpk)
> stopifnot(identical(msgpack_simplify(xu[[6]]), 1:10))
>
> # speed test
> if (requireNamespace("microbenchmark", quietly=TRUE)) {
+ x <- as.list(1:1e6)
+ print(microbenchmark::microbenchmark(xpk <- msgpack_pack(x), times=10)) # 500 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk), times=10)) # 150 ms
+ stopifnot(identical(xu, x))
+
+ ## vector input
+ x <- 1:1e7
+ print(microbenchmark::microbenchmark(xpk2 <- msgpack_pack(x), times=10)) # 50 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk2, simplify=T), times=10)) # 50 ms
+ stopifnot(identical(xu, x))
+ }
Unit: milliseconds
expr min lq mean median uq max
xpk <- msgpack_pack(x) 639.405 717.1886 742.3075 725.5886 757.8552 868.1617
neval
10
Unit: microseconds
expr min lq mean median uq max neval
xu <- msgpack_unpack(xpk) 18.397 18.924 59.8265 19.646 20.683 419.881 10
Error: identical(xu, x) is not TRUE
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 0.2.2
Check: running tests for arch ‘i386’
Result: ERROR
Running 'simpleTests.R' [0s]
Running 'tests.r' [15s]
Running the tests in 'tests/tests.r' failed.
Complete output:
> # Tests for testing out the functionality of the package, to make sure it isn't broken
>
> # some references
>
> # //https://github.com/msgpack/msgpack-c/blob/401460b7d99e51adc06194ceb458934b359d2139/include/msgpack/v1/adaptor/boost/msgpack_variant.hpp
> # //https://stackoverflow.com/questions/44725299/messagepack-c-how-to-iterate-through-an-unknown-data-structure
> # //https://stackoverflow.com/questions/37665361/how-to-determine-the-class-of-object-stored-in-sexp-in-rcpp
> # //https://stackoverflow.com/questions/12954852/booststatic-visitor-with-multiple-arguments
> # //https://stackoverflow.com/questions/25172419/how-can-i-get-the-sexptype-of-an-sexp-value
> # //https://github.com/wch/r-source/blob/48536f1756a88830076023db9566fbb2c1dbb29b/src/include/Rinternals.h#L1178-L1214
> # //https://stackoverflow.com/questions/16131462/how-to-use-boost-library-in-c-with-rcpp
>
>
> library(RcppMsgPack)
>
> # stopifnot <- function(...) cat(..., "\n")
>
> # Test atomic types
>
> # integer
> xpk <- msgpack_pack(1L)
> stopifnot(identical(msgpack_unpack(xpk), 1L))
>
> # double
> xpk <- msgpack_pack(1.54)
> stopifnot(identical(msgpack_unpack(xpk), 1.54))
>
> # string
> xpk <- msgpack_pack("sdfsdf")
> stopifnot(identical(msgpack_unpack(xpk), "sdfsdf"))
>
> # raw
> xpk <- msgpack_pack(as.raw(c(0x28, 0x4F)))
> stopifnot(identical(msgpack_unpack(xpk), as.raw(c(0x28, 0x4F))))
>
> # boolean
> xpk <- msgpack_pack(T)
> stopifnot(msgpack_unpack(xpk))
>
> # nil
> xpk <- msgpack_pack(NULL)
> stopifnot(is.null(msgpack_unpack(xpk)))
>
> # ext
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_unpack(xpk), x))
>
>
> if (Sys.info()[['sysname']] != "Windows") {
+ ## unicode or something characters - note this doesn't always work if you copy/paste into a terminal because of how terminals encode text, but if you source this file it works
+ x <- list('å<c2><9b>¾ä¹¦ï¼<c2><8c>é<c2><80><c2><9a>常å<c2><9c>¨ç<c2><8b>ä¹<c2><89>ä¸<c2><8a>ç<c2><9a><c2><84>ç<c2><90><c2><86>解æ<c2><98>¯å¸¦æ<c2><9c><c2><89>æ<c2><96><c2><87>å<c2><97>å<c2><92><c2><8c>å<c2><9b>¾å<c2><83><c2><8f>ç<c2><9a><c2><84>çº¸å¼ ç<c2><9a><c2><84>é<c2><9b><c2><86>å<c2><90><c2><88>ã<c2><80><c2><82>书é<c2><80><c2><9a>常ç<c2><94>±å¢¨æ°´ã<c2><80><c2><81>çº¸å¼ ã<c2><80><c2><81>ç¾<c2><8a>ç<c2><9a>®çº¸æ<c2><88><c2><96>è<c2><80><c2><85>å<c2><85>¶ä»<c2><96>æ<c2><9d><c2><90>æ<c2><96><c2><99>å<c2><9b>ºå®<c2><9a>å<c2><9c>¨ä¹¦è<c2><84><c2><8a>ä¸<c2><8a>ç»<c2><84>æ<c2><88><c2><90>ã<c2><80><c2><82>ç»<c2><84>æ<c2><88><c2><90>书ç<c2><9a><c2><84>ä¸<c2><80>å¼ çº¸ç§°ä¸ºä¸<c2><80>å¼ ï¼<c2><8c>ä¸<c2><80>å¼ ç<c2><9a><c2><84>ä¸<c2><80>é<c2><9d>¢ç§°ä¸ºä¸<c2><80>页ã<c2><80><c2><82>ä½<c2><86>é<c2><9a><c2><8f>ç<c2><9d><c2><80>ç§<c2><91>å¦æ<c2><8a><c2><80>æ<c2><9c>¯ç<c2><9a><c2><84>å<c2><8f><c2><91>å±<c2><95>ï¼<c2><8c>ç<c2><8b>ä¹<c2><89>å<c2><9b>¾ä¹¦ç<c2><9a><c2><84>æ¦<c2><82>念ä¹<c2><9f>å<c2><9c>¨æ<c2><89>©å±<c2><95>ï¼<c2><8c>å<c2><88>¶ä½<c2><9c>书ç<c2><9a><c2><84>æ<c2><9d><c2><90>æ<c2><96><c2><99>ä¹<c2><9f>å<c2><9c>¨æ<c2><94>¹å<c2><8f><c2><98>ï¼<c2><8c>å¦<c2><82>ç<c2><94>µå<c2><90>æ ¼å¼<c2><8f>ç<c2><9a><c2><84>ç<c2><94>µå<c2><90>书ã<c2><80><c2><82>ä»<c2><8e>广ä¹<c2><89>ç<c2><90><c2><86>解ç<c2><9a><c2><84>å<c2><9b>¾ä¹¦ï¼<c2><8c>å<c2><88><c2><99>æ<c2><98>¯ä¸<c2><80>å<c2><88><c2><87>ä¼ æ<c2><92>讯æ<c2><81>¯ç<c2><9a><c2><84>åª<c2><92>ä»<c2><8b>ã<c2><80><c2><82>书ä¹<c2><9f>æ<c2><8c><c2><87>æ<c2><96><c2><87>å¦ä½<c2><9c>å<c2><93><c2><81>æ<c2><88><c2><96>è<c2><80><c2><85>å<c2><85>¶ä¸ç<c2><9a><c2><84>ä¸<c2><80>é<c2><83>¨å<c2><88><c2><86>ã<c2><80><c2><82>å<c2><9c>¨å<c2><9b>¾ä¹¦é¦<c2><86>ä¿¡æ<c2><81>¯å¦ä¸ï¼<c2><8c>书被称为ä¸<c2><93>è<c2><91><c2><97>ï¼<c2><8c>以å<c2><8c>ºå<c2><88>«äº<c2><8e>æ<c2><9d><c2><82>å¿<c2><97>ã<c2><80><c2><81>å¦æ<c2><9c>¯æ<c2><9c><c2><9f>å<c2><88><c2><8a>ã<c2><80><c2><81>æ<c2><8a>¥çº¸ç<c2><89>è¿<c2><9e>è½½æ<c2><9c><c2><9f>å<c2><88><c2><8a>ã<c2><80><c2><82>æ<c2><89><c2><80>æ<c2><9c><c2><89>ç<c2><9a><c2><84>书é<c2><9d>¢ä½<c2><9c>å<c2><93><c2><81>ï¼<c2><88>å<c2><8c><c2><85>æ<c2><8b>¬å<c2><9b>¾ä¹¦ï¼<c2><89>ç<c2><9a><c2><84>主ä½<c2><93>æ<c2><98>¯æ<c2><96><c2><87>å¦ã<c2><80><c2><82>å<c2><9c>¨å°<c2><8f>说å<c2><92><c2><8c>ä¸<c2><80>äº<c2><9b>ç±»å<c2><9e><c2><8b>ï¼<c2><88>å¦<c2><82>ä¼ è®°ï¼<c2><89>ä¸ï¼<c2><8c>书å<c2><8f>¯è<c2><83>½è¿<c2><98>è¦<c2><81>å<c2><88><c2><86>æ<c2><88><c2><90>å<c2><8d>·ã<c2><80><c2><82>对书ç<c2><89>¹å<c2><88>«å<c2><96><c2><9c>ç<c2><88>±ç<c2><9a><c2><84>人被称为ç<c2><88>±ä¹¦è<c2><80><c2><85>æ<c2><88><c2><96>è<c2><97><c2><8f>书家ï¼<c2><8c>æ<c2><9b>´é<c2><9a><c2><8f>æ<c2><84><c2><8f>ç<c2><9a><c2><84>称å<c2><91>¼æ<c2><98>¯ä¹¦è<c2><99>«æ<c2><88><c2><96>è<c2><80><c2><85>书å<c2><91><c2><86>å<c2><90>ã<c2><80><c2><82>买书ç<c2><9a><c2><84>å<c2><9c>°æ<c2><96>¹å<c2><8f>«ä¹¦åº<c2><97>ï¼<c2><8c>å<c2><9b>¾ä¹¦é¦<c2><86>å<c2><88><c2><99>æ<c2><98>¯å<c2><8f>¯ä»¥å<c2><80><c2><9f>é<c2><98><c2><85>书ç±<c2><8d>ç<c2><9a><c2><84>å<c2><9c>°æ<c2><96>¹ã<c2><80><c2><82>2010å¹´ï¼<c2><8c>è°·æ<c2><8c>å<c2><85>¬å<c2><8f>¸ä¼°è®¡ï¼<c2><8c>ä»<c2><8e>å<c2><8d>°å<c2><88>·æ<c2><9c>¯å<c2><8f><c2><91>æ<c2><98><c2><8e>è<c2><87>³ä»<c2><8a>ï¼<c2><8c>大æ¦<c2><82>å<c2><87>ºç<c2><89><c2><88>äº<c2><86>ä¸<c2><80>亿ä¸<c2><89>å<c2><8d><c2><83>ä¸<c2><87>æ<c2><9c>¬ä¸<c2><8d>å<c2><90><c2><8c>书å<c2><90><c2><8d>ç<c2><9a><c2><84>书ç±<c2><8d>ã<c2><80><c2><82>[1]')
+ xpk <- msgpack_pack(x)
+ xu <- msgpack_unpack(xpk)
+ stopifnot(identical(x, xu))
+ }
>
> # Complex nested object with lists and map
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xmap <- msgpack_map(key=letters[1:10], value=1:10)
> xmap$value[[3]] <- list(NULL)
> xmap$value[[4]] <- as.list(1:10)
> xmap$value[[4]][[3]] <- xmap
> xmap$value[[5]] <- x
> y <- 1:10
> names(y) <- letters[1:10]
> x <- list(1:10, y, "a", list(3,raw(4)), xmap)
> x <- msgpack_format(x)
> xpk <- msgpack_pack(x)
> xu <- msgpack_unpack(xpk)
>
> xs <- msgpack_simplify(x)
> xus <- msgpack_simplify(xu)
>
> stopifnot(identical(xs, xus))
>
> # named list can be used directly as input - should come out to a map, simplify to get a named vector
> x <- list(a=1L, b=2L)
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_simplify(msgpack_unpack(xpk)),c(a=1L, b=2L)))
>
> # multiple objects
> xpk <- msgpack_pack(1,2,3,5,"a", msgpack_format(1:10))
> xu <- msgpack_unpack(xpk)
> stopifnot(identical(msgpack_simplify(xu[[6]]), 1:10))
>
> # speed test
> if (requireNamespace("microbenchmark", quietly=TRUE)) {
+ x <- as.list(1:1e6)
+ print(microbenchmark::microbenchmark(xpk <- msgpack_pack(x), times=10)) # 500 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk), times=10)) # 150 ms
+ stopifnot(identical(xu, x))
+
+ ## vector input
+ x <- 1:1e7
+ print(microbenchmark::microbenchmark(xpk2 <- msgpack_pack(x), times=10)) # 50 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk2, simplify=T), times=10)) # 50 ms
+ stopifnot(identical(xu, x))
+ }
Unit: seconds
expr min lq mean median uq max
xpk <- msgpack_pack(x) 1.002243 1.07835 1.15272 1.172903 1.221731 1.267312
neval
10
Unit: microseconds
expr min lq mean median uq max neval
xu <- msgpack_unpack(xpk) 26.331 27.099 34.2021 27.4835 29.683 92.191 10
Error: identical(xu, x) is not TRUE
Execution halted
Flavor: r-devel-windows-ix86+x86_64
Version: 0.2.2
Check: running tests for arch ‘x64’
Result: ERROR
Running 'simpleTests.R' [0s]
Running 'tests.r' [13s]
Running the tests in 'tests/tests.r' failed.
Complete output:
> # Tests for testing out the functionality of the package, to make sure it isn't broken
>
> # some references
>
> # //https://github.com/msgpack/msgpack-c/blob/401460b7d99e51adc06194ceb458934b359d2139/include/msgpack/v1/adaptor/boost/msgpack_variant.hpp
> # //https://stackoverflow.com/questions/44725299/messagepack-c-how-to-iterate-through-an-unknown-data-structure
> # //https://stackoverflow.com/questions/37665361/how-to-determine-the-class-of-object-stored-in-sexp-in-rcpp
> # //https://stackoverflow.com/questions/12954852/booststatic-visitor-with-multiple-arguments
> # //https://stackoverflow.com/questions/25172419/how-can-i-get-the-sexptype-of-an-sexp-value
> # //https://github.com/wch/r-source/blob/48536f1756a88830076023db9566fbb2c1dbb29b/src/include/Rinternals.h#L1178-L1214
> # //https://stackoverflow.com/questions/16131462/how-to-use-boost-library-in-c-with-rcpp
>
>
> library(RcppMsgPack)
>
> # stopifnot <- function(...) cat(..., "\n")
>
> # Test atomic types
>
> # integer
> xpk <- msgpack_pack(1L)
> stopifnot(identical(msgpack_unpack(xpk), 1L))
>
> # double
> xpk <- msgpack_pack(1.54)
> stopifnot(identical(msgpack_unpack(xpk), 1.54))
>
> # string
> xpk <- msgpack_pack("sdfsdf")
> stopifnot(identical(msgpack_unpack(xpk), "sdfsdf"))
>
> # raw
> xpk <- msgpack_pack(as.raw(c(0x28, 0x4F)))
> stopifnot(identical(msgpack_unpack(xpk), as.raw(c(0x28, 0x4F))))
>
> # boolean
> xpk <- msgpack_pack(T)
> stopifnot(msgpack_unpack(xpk))
>
> # nil
> xpk <- msgpack_pack(NULL)
> stopifnot(is.null(msgpack_unpack(xpk)))
>
> # ext
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_unpack(xpk), x))
>
>
> if (Sys.info()[['sysname']] != "Windows") {
+ ## unicode or something characters - note this doesn't always work if you copy/paste into a terminal because of how terminals encode text, but if you source this file it works
+ x <- list('å<c2><9b>¾ä¹¦ï¼<c2><8c>é<c2><80><c2><9a>常å<c2><9c>¨ç<c2><8b>ä¹<c2><89>ä¸<c2><8a>ç<c2><9a><c2><84>ç<c2><90><c2><86>解æ<c2><98>¯å¸¦æ<c2><9c><c2><89>æ<c2><96><c2><87>å<c2><97>å<c2><92><c2><8c>å<c2><9b>¾å<c2><83><c2><8f>ç<c2><9a><c2><84>çº¸å¼ ç<c2><9a><c2><84>é<c2><9b><c2><86>å<c2><90><c2><88>ã<c2><80><c2><82>书é<c2><80><c2><9a>常ç<c2><94>±å¢¨æ°´ã<c2><80><c2><81>çº¸å¼ ã<c2><80><c2><81>ç¾<c2><8a>ç<c2><9a>®çº¸æ<c2><88><c2><96>è<c2><80><c2><85>å<c2><85>¶ä»<c2><96>æ<c2><9d><c2><90>æ<c2><96><c2><99>å<c2><9b>ºå®<c2><9a>å<c2><9c>¨ä¹¦è<c2><84><c2><8a>ä¸<c2><8a>ç»<c2><84>æ<c2><88><c2><90>ã<c2><80><c2><82>ç»<c2><84>æ<c2><88><c2><90>书ç<c2><9a><c2><84>ä¸<c2><80>å¼ çº¸ç§°ä¸ºä¸<c2><80>å¼ ï¼<c2><8c>ä¸<c2><80>å¼ ç<c2><9a><c2><84>ä¸<c2><80>é<c2><9d>¢ç§°ä¸ºä¸<c2><80>页ã<c2><80><c2><82>ä½<c2><86>é<c2><9a><c2><8f>ç<c2><9d><c2><80>ç§<c2><91>å¦æ<c2><8a><c2><80>æ<c2><9c>¯ç<c2><9a><c2><84>å<c2><8f><c2><91>å±<c2><95>ï¼<c2><8c>ç<c2><8b>ä¹<c2><89>å<c2><9b>¾ä¹¦ç<c2><9a><c2><84>æ¦<c2><82>念ä¹<c2><9f>å<c2><9c>¨æ<c2><89>©å±<c2><95>ï¼<c2><8c>å<c2><88>¶ä½<c2><9c>书ç<c2><9a><c2><84>æ<c2><9d><c2><90>æ<c2><96><c2><99>ä¹<c2><9f>å<c2><9c>¨æ<c2><94>¹å<c2><8f><c2><98>ï¼<c2><8c>å¦<c2><82>ç<c2><94>µå<c2><90>æ ¼å¼<c2><8f>ç<c2><9a><c2><84>ç<c2><94>µå<c2><90>书ã<c2><80><c2><82>ä»<c2><8e>广ä¹<c2><89>ç<c2><90><c2><86>解ç<c2><9a><c2><84>å<c2><9b>¾ä¹¦ï¼<c2><8c>å<c2><88><c2><99>æ<c2><98>¯ä¸<c2><80>å<c2><88><c2><87>ä¼ æ<c2><92>讯æ<c2><81>¯ç<c2><9a><c2><84>åª<c2><92>ä»<c2><8b>ã<c2><80><c2><82>书ä¹<c2><9f>æ<c2><8c><c2><87>æ<c2><96><c2><87>å¦ä½<c2><9c>å<c2><93><c2><81>æ<c2><88><c2><96>è<c2><80><c2><85>å<c2><85>¶ä¸ç<c2><9a><c2><84>ä¸<c2><80>é<c2><83>¨å<c2><88><c2><86>ã<c2><80><c2><82>å<c2><9c>¨å<c2><9b>¾ä¹¦é¦<c2><86>ä¿¡æ<c2><81>¯å¦ä¸ï¼<c2><8c>书被称为ä¸<c2><93>è<c2><91><c2><97>ï¼<c2><8c>以å<c2><8c>ºå<c2><88>«äº<c2><8e>æ<c2><9d><c2><82>å¿<c2><97>ã<c2><80><c2><81>å¦æ<c2><9c>¯æ<c2><9c><c2><9f>å<c2><88><c2><8a>ã<c2><80><c2><81>æ<c2><8a>¥çº¸ç<c2><89>è¿<c2><9e>è½½æ<c2><9c><c2><9f>å<c2><88><c2><8a>ã<c2><80><c2><82>æ<c2><89><c2><80>æ<c2><9c><c2><89>ç<c2><9a><c2><84>书é<c2><9d>¢ä½<c2><9c>å<c2><93><c2><81>ï¼<c2><88>å<c2><8c><c2><85>æ<c2><8b>¬å<c2><9b>¾ä¹¦ï¼<c2><89>ç<c2><9a><c2><84>主ä½<c2><93>æ<c2><98>¯æ<c2><96><c2><87>å¦ã<c2><80><c2><82>å<c2><9c>¨å°<c2><8f>说å<c2><92><c2><8c>ä¸<c2><80>äº<c2><9b>ç±»å<c2><9e><c2><8b>ï¼<c2><88>å¦<c2><82>ä¼ è®°ï¼<c2><89>ä¸ï¼<c2><8c>书å<c2><8f>¯è<c2><83>½è¿<c2><98>è¦<c2><81>å<c2><88><c2><86>æ<c2><88><c2><90>å<c2><8d>·ã<c2><80><c2><82>对书ç<c2><89>¹å<c2><88>«å<c2><96><c2><9c>ç<c2><88>±ç<c2><9a><c2><84>人被称为ç<c2><88>±ä¹¦è<c2><80><c2><85>æ<c2><88><c2><96>è<c2><97><c2><8f>书家ï¼<c2><8c>æ<c2><9b>´é<c2><9a><c2><8f>æ<c2><84><c2><8f>ç<c2><9a><c2><84>称å<c2><91>¼æ<c2><98>¯ä¹¦è<c2><99>«æ<c2><88><c2><96>è<c2><80><c2><85>书å<c2><91><c2><86>å<c2><90>ã<c2><80><c2><82>买书ç<c2><9a><c2><84>å<c2><9c>°æ<c2><96>¹å<c2><8f>«ä¹¦åº<c2><97>ï¼<c2><8c>å<c2><9b>¾ä¹¦é¦<c2><86>å<c2><88><c2><99>æ<c2><98>¯å<c2><8f>¯ä»¥å<c2><80><c2><9f>é<c2><98><c2><85>书ç±<c2><8d>ç<c2><9a><c2><84>å<c2><9c>°æ<c2><96>¹ã<c2><80><c2><82>2010å¹´ï¼<c2><8c>è°·æ<c2><8c>å<c2><85>¬å<c2><8f>¸ä¼°è®¡ï¼<c2><8c>ä»<c2><8e>å<c2><8d>°å<c2><88>·æ<c2><9c>¯å<c2><8f><c2><91>æ<c2><98><c2><8e>è<c2><87>³ä»<c2><8a>ï¼<c2><8c>大æ¦<c2><82>å<c2><87>ºç<c2><89><c2><88>äº<c2><86>ä¸<c2><80>亿ä¸<c2><89>å<c2><8d><c2><83>ä¸<c2><87>æ<c2><9c>¬ä¸<c2><8d>å<c2><90><c2><8c>书å<c2><90><c2><8d>ç<c2><9a><c2><84>书ç±<c2><8d>ã<c2><80><c2><82>[1]')
+ xpk <- msgpack_pack(x)
+ xu <- msgpack_unpack(xpk)
+ stopifnot(identical(x, xu))
+ }
>
> # Complex nested object with lists and map
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xmap <- msgpack_map(key=letters[1:10], value=1:10)
> xmap$value[[3]] <- list(NULL)
> xmap$value[[4]] <- as.list(1:10)
> xmap$value[[4]][[3]] <- xmap
> xmap$value[[5]] <- x
> y <- 1:10
> names(y) <- letters[1:10]
> x <- list(1:10, y, "a", list(3,raw(4)), xmap)
> x <- msgpack_format(x)
> xpk <- msgpack_pack(x)
> xu <- msgpack_unpack(xpk)
>
> xs <- msgpack_simplify(x)
> xus <- msgpack_simplify(xu)
>
> stopifnot(identical(xs, xus))
>
> # named list can be used directly as input - should come out to a map, simplify to get a named vector
> x <- list(a=1L, b=2L)
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_simplify(msgpack_unpack(xpk)),c(a=1L, b=2L)))
>
> # multiple objects
> xpk <- msgpack_pack(1,2,3,5,"a", msgpack_format(1:10))
> xu <- msgpack_unpack(xpk)
> stopifnot(identical(msgpack_simplify(xu[[6]]), 1:10))
>
> # speed test
> if (requireNamespace("microbenchmark", quietly=TRUE)) {
+ x <- as.list(1:1e6)
+ print(microbenchmark::microbenchmark(xpk <- msgpack_pack(x), times=10)) # 500 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk), times=10)) # 150 ms
+ stopifnot(identical(xu, x))
+
+ ## vector input
+ x <- 1:1e7
+ print(microbenchmark::microbenchmark(xpk2 <- msgpack_pack(x), times=10)) # 50 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk2, simplify=T), times=10)) # 50 ms
+ stopifnot(identical(xu, x))
+ }
Unit: milliseconds
expr min lq mean median uq max
xpk <- msgpack_pack(x) 939.1228 1015.746 1040.986 1044.043 1060.499 1181.675
neval
10
Unit: microseconds
expr min lq mean median uq max neval
xu <- msgpack_unpack(xpk) 27.726 28.215 33.8303 29.577 31.149 71.167 10
Error: identical(xu, x) is not TRUE
Execution halted
Flavor: r-devel-windows-ix86+x86_64
Version: 0.2.2
Check: tests
Result: ERROR
Running ‘simpleTests.R’ [0s/0s]
Running ‘tests.r’ [8s/9s]
Running the tests in ‘tests/tests.r’ failed.
Complete output:
> # Tests for testing out the functionality of the package, to make sure it isn't broken
>
> # some references
>
> # //https://github.com/msgpack/msgpack-c/blob/401460b7d99e51adc06194ceb458934b359d2139/include/msgpack/v1/adaptor/boost/msgpack_variant.hpp
> # //https://stackoverflow.com/questions/44725299/messagepack-c-how-to-iterate-through-an-unknown-data-structure
> # //https://stackoverflow.com/questions/37665361/how-to-determine-the-class-of-object-stored-in-sexp-in-rcpp
> # //https://stackoverflow.com/questions/12954852/booststatic-visitor-with-multiple-arguments
> # //https://stackoverflow.com/questions/25172419/how-can-i-get-the-sexptype-of-an-sexp-value
> # //https://github.com/wch/r-source/blob/48536f1756a88830076023db9566fbb2c1dbb29b/src/include/Rinternals.h#L1178-L1214
> # //https://stackoverflow.com/questions/16131462/how-to-use-boost-library-in-c-with-rcpp
>
>
> library(RcppMsgPack)
>
> # stopifnot <- function(...) cat(..., "\n")
>
> # Test atomic types
>
> # integer
> xpk <- msgpack_pack(1L)
> stopifnot(identical(msgpack_unpack(xpk), 1L))
>
> # double
> xpk <- msgpack_pack(1.54)
> stopifnot(identical(msgpack_unpack(xpk), 1.54))
>
> # string
> xpk <- msgpack_pack("sdfsdf")
> stopifnot(identical(msgpack_unpack(xpk), "sdfsdf"))
>
> # raw
> xpk <- msgpack_pack(as.raw(c(0x28, 0x4F)))
> stopifnot(identical(msgpack_unpack(xpk), as.raw(c(0x28, 0x4F))))
>
> # boolean
> xpk <- msgpack_pack(T)
> stopifnot(msgpack_unpack(xpk))
>
> # nil
> xpk <- msgpack_pack(NULL)
> stopifnot(is.null(msgpack_unpack(xpk)))
>
> # ext
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_unpack(xpk), x))
>
>
> if (Sys.info()[['sysname']] != "Windows") {
+ ## unicode or something characters - note this doesn't always work if you copy/paste into a terminal because of how terminals encode text, but if you source this file it works
+ x <- list('图书，通常在狭义上的理解是带有文字和图像的纸张的集合。书通常由墨水、纸张、羊皮纸或者其他材料固定在书脊上组成。组成书的一张纸称为一张，一张的一面称为一页。但随着科学技术的发展，狭义图书的概念也在扩展，制作书的材料也在改变，如电子格式的电子书。从广义理解的图书，则是一切传播讯息的媒介。书也指文学作品或者其中的一部分。在图书馆信息学中，书被称为专著，以区别于杂志、学术期刊、报纸等连载期刊。所有的书面作品（包括图书）的主体是文学。在小说和一些类型（如传记）中，书可能还要分成卷。对书特别喜爱的人被称为爱书者或藏书家，更随意的称呼是书虫或者书呆子。买书的地方叫书店，图书馆则是可以借阅书籍的地方。2010年，谷歌公司估计，从印刷术发明至今，大概出版了一亿三千万本不同书名的书籍。[1]')
+ xpk <- msgpack_pack(x)
+ xu <- msgpack_unpack(xpk)
+ stopifnot(identical(x, xu))
+ }
>
> # Complex nested object with lists and map
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xmap <- msgpack_map(key=letters[1:10], value=1:10)
> xmap$value[[3]] <- list(NULL)
> xmap$value[[4]] <- as.list(1:10)
> xmap$value[[4]][[3]] <- xmap
> xmap$value[[5]] <- x
> y <- 1:10
> names(y) <- letters[1:10]
> x <- list(1:10, y, "a", list(3,raw(4)), xmap)
> x <- msgpack_format(x)
> xpk <- msgpack_pack(x)
> xu <- msgpack_unpack(xpk)
>
> xs <- msgpack_simplify(x)
> xus <- msgpack_simplify(xu)
>
> stopifnot(identical(xs, xus))
>
> # named list can be used directly as input - should come out to a map, simplify to get a named vector
> x <- list(a=1L, b=2L)
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_simplify(msgpack_unpack(xpk)),c(a=1L, b=2L)))
>
> # multiple objects
> xpk <- msgpack_pack(1,2,3,5,"a", msgpack_format(1:10))
> xu <- msgpack_unpack(xpk)
> stopifnot(identical(msgpack_simplify(xu[[6]]), 1:10))
>
> # speed test
> if (requireNamespace("microbenchmark", quietly=TRUE)) {
+ x <- as.list(1:1e6)
+ print(microbenchmark::microbenchmark(xpk <- msgpack_pack(x), times=10)) # 500 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk), times=10)) # 150 ms
+ stopifnot(identical(xu, x))
+
+ ## vector input
+ x <- 1:1e7
+ print(microbenchmark::microbenchmark(xpk2 <- msgpack_pack(x), times=10)) # 50 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk2, simplify=T), times=10)) # 50 ms
+ stopifnot(identical(xu, x))
+ }
Unit: milliseconds
expr min lq mean median uq max
xpk <- msgpack_pack(x) 606.3755 702.5623 784.8622 781.4006 864.0488 950.7921
neval
10
Unit: microseconds
expr min lq mean median uq max neval
xu <- msgpack_unpack(xpk) 14.295 14.72 43.1615 14.8695 15.389 294.103 10
Error: identical(xu, x) is not TRUE
Execution halted
Flavor: r-patched-linux-x86_64
Version: 0.2.2
Check: whether package can be installed
Result: ERROR
Installation failed.
Flavor: r-patched-solaris-x86
Version: 0.2.2
Check: tests
Result: ERROR
Running ‘simpleTests.R’ [0s/0s]
Running ‘tests.r’ [9s/10s]
Running the tests in ‘tests/tests.r’ failed.
Complete output:
> # Tests for testing out the functionality of the package, to make sure it isn't broken
>
> # some references
>
> # //https://github.com/msgpack/msgpack-c/blob/401460b7d99e51adc06194ceb458934b359d2139/include/msgpack/v1/adaptor/boost/msgpack_variant.hpp
> # //https://stackoverflow.com/questions/44725299/messagepack-c-how-to-iterate-through-an-unknown-data-structure
> # //https://stackoverflow.com/questions/37665361/how-to-determine-the-class-of-object-stored-in-sexp-in-rcpp
> # //https://stackoverflow.com/questions/12954852/booststatic-visitor-with-multiple-arguments
> # //https://stackoverflow.com/questions/25172419/how-can-i-get-the-sexptype-of-an-sexp-value
> # //https://github.com/wch/r-source/blob/48536f1756a88830076023db9566fbb2c1dbb29b/src/include/Rinternals.h#L1178-L1214
> # //https://stackoverflow.com/questions/16131462/how-to-use-boost-library-in-c-with-rcpp
>
>
> library(RcppMsgPack)
>
> # stopifnot <- function(...) cat(..., "\n")
>
> # Test atomic types
>
> # integer
> xpk <- msgpack_pack(1L)
> stopifnot(identical(msgpack_unpack(xpk), 1L))
>
> # double
> xpk <- msgpack_pack(1.54)
> stopifnot(identical(msgpack_unpack(xpk), 1.54))
>
> # string
> xpk <- msgpack_pack("sdfsdf")
> stopifnot(identical(msgpack_unpack(xpk), "sdfsdf"))
>
> # raw
> xpk <- msgpack_pack(as.raw(c(0x28, 0x4F)))
> stopifnot(identical(msgpack_unpack(xpk), as.raw(c(0x28, 0x4F))))
>
> # boolean
> xpk <- msgpack_pack(T)
> stopifnot(msgpack_unpack(xpk))
>
> # nil
> xpk <- msgpack_pack(NULL)
> stopifnot(is.null(msgpack_unpack(xpk)))
>
> # ext
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_unpack(xpk), x))
>
>
> if (Sys.info()[['sysname']] != "Windows") {
+ ## unicode or something characters - note this doesn't always work if you copy/paste into a terminal because of how terminals encode text, but if you source this file it works
+ x <- list('图书，通常在狭义上的理解是带有文字和图像的纸张的集合。书通常由墨水、纸张、羊皮纸或者其他材料固定在书脊上组成。组成书的一张纸称为一张，一张的一面称为一页。但随着科学技术的发展，狭义图书的概念也在扩展，制作书的材料也在改变，如电子格式的电子书。从广义理解的图书，则是一切传播讯息的媒介。书也指文学作品或者其中的一部分。在图书馆信息学中，书被称为专著，以区别于杂志、学术期刊、报纸等连载期刊。所有的书面作品（包括图书）的主体是文学。在小说和一些类型（如传记）中，书可能还要分成卷。对书特别喜爱的人被称为爱书者或藏书家，更随意的称呼是书虫或者书呆子。买书的地方叫书店，图书馆则是可以借阅书籍的地方。2010年，谷歌公司估计，从印刷术发明至今，大概出版了一亿三千万本不同书名的书籍。[1]')
+ xpk <- msgpack_pack(x)
+ xu <- msgpack_unpack(xpk)
+ stopifnot(identical(x, xu))
+ }
>
> # Complex nested object with lists and map
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xmap <- msgpack_map(key=letters[1:10], value=1:10)
> xmap$value[[3]] <- list(NULL)
> xmap$value[[4]] <- as.list(1:10)
> xmap$value[[4]][[3]] <- xmap
> xmap$value[[5]] <- x
> y <- 1:10
> names(y) <- letters[1:10]
> x <- list(1:10, y, "a", list(3,raw(4)), xmap)
> x <- msgpack_format(x)
> xpk <- msgpack_pack(x)
> xu <- msgpack_unpack(xpk)
>
> xs <- msgpack_simplify(x)
> xus <- msgpack_simplify(xu)
>
> stopifnot(identical(xs, xus))
>
> # named list can be used directly as input - should come out to a map, simplify to get a named vector
> x <- list(a=1L, b=2L)
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_simplify(msgpack_unpack(xpk)),c(a=1L, b=2L)))
>
> # multiple objects
> xpk <- msgpack_pack(1,2,3,5,"a", msgpack_format(1:10))
> xu <- msgpack_unpack(xpk)
> stopifnot(identical(msgpack_simplify(xu[[6]]), 1:10))
>
> # speed test
> if (requireNamespace("microbenchmark", quietly=TRUE)) {
+ x <- as.list(1:1e6)
+ print(microbenchmark::microbenchmark(xpk <- msgpack_pack(x), times=10)) # 500 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk), times=10)) # 150 ms
+ stopifnot(identical(xu, x))
+
+ ## vector input
+ x <- 1:1e7
+ print(microbenchmark::microbenchmark(xpk2 <- msgpack_pack(x), times=10)) # 50 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk2, simplify=T), times=10)) # 50 ms
+ stopifnot(identical(xu, x))
+ }
Unit: milliseconds
expr min lq mean median uq max
xpk <- msgpack_pack(x) 763.2801 799.9262 856.1671 853.4846 900.2088 965.5324
neval
10
Unit: microseconds
expr min lq mean median uq max neval
xu <- msgpack_unpack(xpk) 17.498 17.633 50.7779 18.2335 19.704 335.919 10
Error: identical(xu, x) is not TRUE
Execution halted
Flavor: r-release-linux-x86_64
Version: 0.2.2
Check: running tests for arch ‘i386’
Result: ERROR
Running 'simpleTests.R' [0s]
Running 'tests.r' [15s]
Running the tests in 'tests/tests.r' failed.
Complete output:
> # Tests for testing out the functionality of the package, to make sure it isn't broken
>
> # some references
>
> # //https://github.com/msgpack/msgpack-c/blob/401460b7d99e51adc06194ceb458934b359d2139/include/msgpack/v1/adaptor/boost/msgpack_variant.hpp
> # //https://stackoverflow.com/questions/44725299/messagepack-c-how-to-iterate-through-an-unknown-data-structure
> # //https://stackoverflow.com/questions/37665361/how-to-determine-the-class-of-object-stored-in-sexp-in-rcpp
> # //https://stackoverflow.com/questions/12954852/booststatic-visitor-with-multiple-arguments
> # //https://stackoverflow.com/questions/25172419/how-can-i-get-the-sexptype-of-an-sexp-value
> # //https://github.com/wch/r-source/blob/48536f1756a88830076023db9566fbb2c1dbb29b/src/include/Rinternals.h#L1178-L1214
> # //https://stackoverflow.com/questions/16131462/how-to-use-boost-library-in-c-with-rcpp
>
>
> library(RcppMsgPack)
>
> # stopifnot <- function(...) cat(..., "\n")
>
> # Test atomic types
>
> # integer
> xpk <- msgpack_pack(1L)
> stopifnot(identical(msgpack_unpack(xpk), 1L))
>
> # double
> xpk <- msgpack_pack(1.54)
> stopifnot(identical(msgpack_unpack(xpk), 1.54))
>
> # string
> xpk <- msgpack_pack("sdfsdf")
> stopifnot(identical(msgpack_unpack(xpk), "sdfsdf"))
>
> # raw
> xpk <- msgpack_pack(as.raw(c(0x28, 0x4F)))
> stopifnot(identical(msgpack_unpack(xpk), as.raw(c(0x28, 0x4F))))
>
> # boolean
> xpk <- msgpack_pack(T)
> stopifnot(msgpack_unpack(xpk))
>
> # nil
> xpk <- msgpack_pack(NULL)
> stopifnot(is.null(msgpack_unpack(xpk)))
>
> # ext
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_unpack(xpk), x))
>
>
> if (Sys.info()[['sysname']] != "Windows") {
+ ## unicode or something characters - note this doesn't always work if you copy/paste into a terminal because of how terminals encode text, but if you source this file it works
+ x <- list('å<c2><9b>¾ä¹¦ï¼<c2><8c>é<c2><80><c2><9a>常å<c2><9c>¨ç<c2><8b>ä¹<c2><89>ä¸<c2><8a>ç<c2><9a><c2><84>ç<c2><90><c2><86>解æ<c2><98>¯å¸¦æ<c2><9c><c2><89>æ<c2><96><c2><87>å<c2><97>å<c2><92><c2><8c>å<c2><9b>¾å<c2><83><c2><8f>ç<c2><9a><c2><84>çº¸å¼ ç<c2><9a><c2><84>é<c2><9b><c2><86>å<c2><90><c2><88>ã<c2><80><c2><82>书é<c2><80><c2><9a>常ç<c2><94>±å¢¨æ°´ã<c2><80><c2><81>çº¸å¼ ã<c2><80><c2><81>ç¾<c2><8a>ç<c2><9a>®çº¸æ<c2><88><c2><96>è<c2><80><c2><85>å<c2><85>¶ä»<c2><96>æ<c2><9d><c2><90>æ<c2><96><c2><99>å<c2><9b>ºå®<c2><9a>å<c2><9c>¨ä¹¦è<c2><84><c2><8a>ä¸<c2><8a>ç»<c2><84>æ<c2><88><c2><90>ã<c2><80><c2><82>ç»<c2><84>æ<c2><88><c2><90>书ç<c2><9a><c2><84>ä¸<c2><80>å¼ çº¸ç§°ä¸ºä¸<c2><80>å¼ ï¼<c2><8c>ä¸<c2><80>å¼ ç<c2><9a><c2><84>ä¸<c2><80>é<c2><9d>¢ç§°ä¸ºä¸<c2><80>页ã<c2><80><c2><82>ä½<c2><86>é<c2><9a><c2><8f>ç<c2><9d><c2><80>ç§<c2><91>å¦æ<c2><8a><c2><80>æ<c2><9c>¯ç<c2><9a><c2><84>å<c2><8f><c2><91>å±<c2><95>ï¼<c2><8c>ç<c2><8b>ä¹<c2><89>å<c2><9b>¾ä¹¦ç<c2><9a><c2><84>æ¦<c2><82>念ä¹<c2><9f>å<c2><9c>¨æ<c2><89>©å±<c2><95>ï¼<c2><8c>å<c2><88>¶ä½<c2><9c>书ç<c2><9a><c2><84>æ<c2><9d><c2><90>æ<c2><96><c2><99>ä¹<c2><9f>å<c2><9c>¨æ<c2><94>¹å<c2><8f><c2><98>ï¼<c2><8c>å¦<c2><82>ç<c2><94>µå<c2><90>æ ¼å¼<c2><8f>ç<c2><9a><c2><84>ç<c2><94>µå<c2><90>书ã<c2><80><c2><82>ä»<c2><8e>广ä¹<c2><89>ç<c2><90><c2><86>解ç<c2><9a><c2><84>å<c2><9b>¾ä¹¦ï¼<c2><8c>å<c2><88><c2><99>æ<c2><98>¯ä¸<c2><80>å<c2><88><c2><87>ä¼ æ<c2><92>讯æ<c2><81>¯ç<c2><9a><c2><84>åª<c2><92>ä»<c2><8b>ã<c2><80><c2><82>书ä¹<c2><9f>æ<c2><8c><c2><87>æ<c2><96><c2><87>å¦ä½<c2><9c>å<c2><93><c2><81>æ<c2><88><c2><96>è<c2><80><c2><85>å<c2><85>¶ä¸ç<c2><9a><c2><84>ä¸<c2><80>é<c2><83>¨å<c2><88><c2><86>ã<c2><80><c2><82>å<c2><9c>¨å<c2><9b>¾ä¹¦é¦<c2><86>ä¿¡æ<c2><81>¯å¦ä¸ï¼<c2><8c>书被称为ä¸<c2><93>è<c2><91><c2><97>ï¼<c2><8c>以å<c2><8c>ºå<c2><88>«äº<c2><8e>æ<c2><9d><c2><82>å¿<c2><97>ã<c2><80><c2><81>å¦æ<c2><9c>¯æ<c2><9c><c2><9f>å<c2><88><c2><8a>ã<c2><80><c2><81>æ<c2><8a>¥çº¸ç<c2><89>è¿<c2><9e>è½½æ<c2><9c><c2><9f>å<c2><88><c2><8a>ã<c2><80><c2><82>æ<c2><89><c2><80>æ<c2><9c><c2><89>ç<c2><9a><c2><84>书é<c2><9d>¢ä½<c2><9c>å<c2><93><c2><81>ï¼<c2><88>å<c2><8c><c2><85>æ<c2><8b>¬å<c2><9b>¾ä¹¦ï¼<c2><89>ç<c2><9a><c2><84>主ä½<c2><93>æ<c2><98>¯æ<c2><96><c2><87>å¦ã<c2><80><c2><82>å<c2><9c>¨å°<c2><8f>说å<c2><92><c2><8c>ä¸<c2><80>äº<c2><9b>ç±»å<c2><9e><c2><8b>ï¼<c2><88>å¦<c2><82>ä¼ è®°ï¼<c2><89>ä¸ï¼<c2><8c>书å<c2><8f>¯è<c2><83>½è¿<c2><98>è¦<c2><81>å<c2><88><c2><86>æ<c2><88><c2><90>å<c2><8d>·ã<c2><80><c2><82>对书ç<c2><89>¹å<c2><88>«å<c2><96><c2><9c>ç<c2><88>±ç<c2><9a><c2><84>人被称为ç<c2><88>±ä¹¦è<c2><80><c2><85>æ<c2><88><c2><96>è<c2><97><c2><8f>书家ï¼<c2><8c>æ<c2><9b>´é<c2><9a><c2><8f>æ<c2><84><c2><8f>ç<c2><9a><c2><84>称å<c2><91>¼æ<c2><98>¯ä¹¦è<c2><99>«æ<c2><88><c2><96>è<c2><80><c2><85>书å<c2><91><c2><86>å<c2><90>ã<c2><80><c2><82>买书ç<c2><9a><c2><84>å<c2><9c>°æ<c2><96>¹å<c2><8f>«ä¹¦åº<c2><97>ï¼<c2><8c>å<c2><9b>¾ä¹¦é¦<c2><86>å<c2><88><c2><99>æ<c2><98>¯å<c2><8f>¯ä»¥å<c2><80><c2><9f>é<c2><98><c2><85>书ç±<c2><8d>ç<c2><9a><c2><84>å<c2><9c>°æ<c2><96>¹ã<c2><80><c2><82>2010å¹´ï¼<c2><8c>è°·æ<c2><8c>å<c2><85>¬å<c2><8f>¸ä¼°è®¡ï¼<c2><8c>ä»<c2><8e>å<c2><8d>°å<c2><88>·æ<c2><9c>¯å<c2><8f><c2><91>æ<c2><98><c2><8e>è<c2><87>³ä»<c2><8a>ï¼<c2><8c>大æ¦<c2><82>å<c2><87>ºç<c2><89><c2><88>äº<c2><86>ä¸<c2><80>亿ä¸<c2><89>å<c2><8d><c2><83>ä¸<c2><87>æ<c2><9c>¬ä¸<c2><8d>å<c2><90><c2><8c>书å<c2><90><c2><8d>ç<c2><9a><c2><84>书ç±<c2><8d>ã<c2><80><c2><82>[1]')
+ xpk <- msgpack_pack(x)
+ xu <- msgpack_unpack(xpk)
+ stopifnot(identical(x, xu))
+ }
>
> # Complex nested object with lists and map
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xmap <- msgpack_map(key=letters[1:10], value=1:10)
> xmap$value[[3]] <- list(NULL)
> xmap$value[[4]] <- as.list(1:10)
> xmap$value[[4]][[3]] <- xmap
> xmap$value[[5]] <- x
> y <- 1:10
> names(y) <- letters[1:10]
> x <- list(1:10, y, "a", list(3,raw(4)), xmap)
> x <- msgpack_format(x)
> xpk <- msgpack_pack(x)
> xu <- msgpack_unpack(xpk)
>
> xs <- msgpack_simplify(x)
> xus <- msgpack_simplify(xu)
>
> stopifnot(identical(xs, xus))
>
> # named list can be used directly as input - should come out to a map, simplify to get a named vector
> x <- list(a=1L, b=2L)
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_simplify(msgpack_unpack(xpk)),c(a=1L, b=2L)))
>
> # multiple objects
> xpk <- msgpack_pack(1,2,3,5,"a", msgpack_format(1:10))
> xu <- msgpack_unpack(xpk)
> stopifnot(identical(msgpack_simplify(xu[[6]]), 1:10))
>
> # speed test
> if (requireNamespace("microbenchmark", quietly=TRUE)) {
+ x <- as.list(1:1e6)
+ print(microbenchmark::microbenchmark(xpk <- msgpack_pack(x), times=10)) # 500 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk), times=10)) # 150 ms
+ stopifnot(identical(xu, x))
+
+ ## vector input
+ x <- 1:1e7
+ print(microbenchmark::microbenchmark(xpk2 <- msgpack_pack(x), times=10)) # 50 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk2, simplify=T), times=10)) # 50 ms
+ stopifnot(identical(xu, x))
+ }
Unit: seconds
expr min lq mean median uq max
xpk <- msgpack_pack(x) 1.095993 1.215146 1.220127 1.243315 1.257361 1.272011
neval
10
Unit: microseconds
expr min lq mean median uq max neval
xu <- msgpack_unpack(xpk) 30.521 31.498 37.7144 31.848 32.406 88.489 10
Error: identical(xu, x) is not TRUE
Execution halted
Flavor: r-release-windows-ix86+x86_64
Version: 0.2.2
Check: running tests for arch ‘x64’
Result: ERROR
Running 'simpleTests.R' [1s]
Running 'tests.r' [14s]
Running the tests in 'tests/tests.r' failed.
Complete output:
> # Tests for testing out the functionality of the package, to make sure it isn't broken
>
> # some references
>
> # //https://github.com/msgpack/msgpack-c/blob/401460b7d99e51adc06194ceb458934b359d2139/include/msgpack/v1/adaptor/boost/msgpack_variant.hpp
> # //https://stackoverflow.com/questions/44725299/messagepack-c-how-to-iterate-through-an-unknown-data-structure
> # //https://stackoverflow.com/questions/37665361/how-to-determine-the-class-of-object-stored-in-sexp-in-rcpp
> # //https://stackoverflow.com/questions/12954852/booststatic-visitor-with-multiple-arguments
> # //https://stackoverflow.com/questions/25172419/how-can-i-get-the-sexptype-of-an-sexp-value
> # //https://github.com/wch/r-source/blob/48536f1756a88830076023db9566fbb2c1dbb29b/src/include/Rinternals.h#L1178-L1214
> # //https://stackoverflow.com/questions/16131462/how-to-use-boost-library-in-c-with-rcpp
>
>
> library(RcppMsgPack)
>
> # stopifnot <- function(...) cat(..., "\n")
>
> # Test atomic types
>
> # integer
> xpk <- msgpack_pack(1L)
> stopifnot(identical(msgpack_unpack(xpk), 1L))
>
> # double
> xpk <- msgpack_pack(1.54)
> stopifnot(identical(msgpack_unpack(xpk), 1.54))
>
> # string
> xpk <- msgpack_pack("sdfsdf")
> stopifnot(identical(msgpack_unpack(xpk), "sdfsdf"))
>
> # raw
> xpk <- msgpack_pack(as.raw(c(0x28, 0x4F)))
> stopifnot(identical(msgpack_unpack(xpk), as.raw(c(0x28, 0x4F))))
>
> # boolean
> xpk <- msgpack_pack(T)
> stopifnot(msgpack_unpack(xpk))
>
> # nil
> xpk <- msgpack_pack(NULL)
> stopifnot(is.null(msgpack_unpack(xpk)))
>
> # ext
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_unpack(xpk), x))
>
>
> if (Sys.info()[['sysname']] != "Windows") {
+ ## unicode or something characters - note this doesn't always work if you copy/paste into a terminal because of how terminals encode text, but if you source this file it works
+ x <- list('å<c2><9b>¾ä¹¦ï¼<c2><8c>é<c2><80><c2><9a>常å<c2><9c>¨ç<c2><8b>ä¹<c2><89>ä¸<c2><8a>ç<c2><9a><c2><84>ç<c2><90><c2><86>解æ<c2><98>¯å¸¦æ<c2><9c><c2><89>æ<c2><96><c2><87>å<c2><97>å<c2><92><c2><8c>å<c2><9b>¾å<c2><83><c2><8f>ç<c2><9a><c2><84>çº¸å¼ ç<c2><9a><c2><84>é<c2><9b><c2><86>å<c2><90><c2><88>ã<c2><80><c2><82>书é<c2><80><c2><9a>常ç<c2><94>±å¢¨æ°´ã<c2><80><c2><81>çº¸å¼ ã<c2><80><c2><81>ç¾<c2><8a>ç<c2><9a>®çº¸æ<c2><88><c2><96>è<c2><80><c2><85>å<c2><85>¶ä»<c2><96>æ<c2><9d><c2><90>æ<c2><96><c2><99>å<c2><9b>ºå®<c2><9a>å<c2><9c>¨ä¹¦è<c2><84><c2><8a>ä¸<c2><8a>ç»<c2><84>æ<c2><88><c2><90>ã<c2><80><c2><82>ç»<c2><84>æ<c2><88><c2><90>书ç<c2><9a><c2><84>ä¸<c2><80>å¼ çº¸ç§°ä¸ºä¸<c2><80>å¼ ï¼<c2><8c>ä¸<c2><80>å¼ ç<c2><9a><c2><84>ä¸<c2><80>é<c2><9d>¢ç§°ä¸ºä¸<c2><80>页ã<c2><80><c2><82>ä½<c2><86>é<c2><9a><c2><8f>ç<c2><9d><c2><80>ç§<c2><91>å¦æ<c2><8a><c2><80>æ<c2><9c>¯ç<c2><9a><c2><84>å<c2><8f><c2><91>å±<c2><95>ï¼<c2><8c>ç<c2><8b>ä¹<c2><89>å<c2><9b>¾ä¹¦ç<c2><9a><c2><84>æ¦<c2><82>念ä¹<c2><9f>å<c2><9c>¨æ<c2><89>©å±<c2><95>ï¼<c2><8c>å<c2><88>¶ä½<c2><9c>书ç<c2><9a><c2><84>æ<c2><9d><c2><90>æ<c2><96><c2><99>ä¹<c2><9f>å<c2><9c>¨æ<c2><94>¹å<c2><8f><c2><98>ï¼<c2><8c>å¦<c2><82>ç<c2><94>µå<c2><90>æ ¼å¼<c2><8f>ç<c2><9a><c2><84>ç<c2><94>µå<c2><90>书ã<c2><80><c2><82>ä»<c2><8e>广ä¹<c2><89>ç<c2><90><c2><86>解ç<c2><9a><c2><84>å<c2><9b>¾ä¹¦ï¼<c2><8c>å<c2><88><c2><99>æ<c2><98>¯ä¸<c2><80>å<c2><88><c2><87>ä¼ æ<c2><92>讯æ<c2><81>¯ç<c2><9a><c2><84>åª<c2><92>ä»<c2><8b>ã<c2><80><c2><82>书ä¹<c2><9f>æ<c2><8c><c2><87>æ<c2><96><c2><87>å¦ä½<c2><9c>å<c2><93><c2><81>æ<c2><88><c2><96>è<c2><80><c2><85>å<c2><85>¶ä¸ç<c2><9a><c2><84>ä¸<c2><80>é<c2><83>¨å<c2><88><c2><86>ã<c2><80><c2><82>å<c2><9c>¨å<c2><9b>¾ä¹¦é¦<c2><86>ä¿¡æ<c2><81>¯å¦ä¸ï¼<c2><8c>书被称为ä¸<c2><93>è<c2><91><c2><97>ï¼<c2><8c>以å<c2><8c>ºå<c2><88>«äº<c2><8e>æ<c2><9d><c2><82>å¿<c2><97>ã<c2><80><c2><81>å¦æ<c2><9c>¯æ<c2><9c><c2><9f>å<c2><88><c2><8a>ã<c2><80><c2><81>æ<c2><8a>¥çº¸ç<c2><89>è¿<c2><9e>è½½æ<c2><9c><c2><9f>å<c2><88><c2><8a>ã<c2><80><c2><82>æ<c2><89><c2><80>æ<c2><9c><c2><89>ç<c2><9a><c2><84>书é<c2><9d>¢ä½<c2><9c>å<c2><93><c2><81>ï¼<c2><88>å<c2><8c><c2><85>æ<c2><8b>¬å<c2><9b>¾ä¹¦ï¼<c2><89>ç<c2><9a><c2><84>主ä½<c2><93>æ<c2><98>¯æ<c2><96><c2><87>å¦ã<c2><80><c2><82>å<c2><9c>¨å°<c2><8f>说å<c2><92><c2><8c>ä¸<c2><80>äº<c2><9b>ç±»å<c2><9e><c2><8b>ï¼<c2><88>å¦<c2><82>ä¼ è®°ï¼<c2><89>ä¸ï¼<c2><8c>书å<c2><8f>¯è<c2><83>½è¿<c2><98>è¦<c2><81>å<c2><88><c2><86>æ<c2><88><c2><90>å<c2><8d>·ã<c2><80><c2><82>对书ç<c2><89>¹å<c2><88>«å<c2><96><c2><9c>ç<c2><88>±ç<c2><9a><c2><84>人被称为ç<c2><88>±ä¹¦è<c2><80><c2><85>æ<c2><88><c2><96>è<c2><97><c2><8f>书家ï¼<c2><8c>æ<c2><9b>´é<c2><9a><c2><8f>æ<c2><84><c2><8f>ç<c2><9a><c2><84>称å<c2><91>¼æ<c2><98>¯ä¹¦è<c2><99>«æ<c2><88><c2><96>è<c2><80><c2><85>书å<c2><91><c2><86>å<c2><90>ã<c2><80><c2><82>买书ç<c2><9a><c2><84>å<c2><9c>°æ<c2><96>¹å<c2><8f>«ä¹¦åº<c2><97>ï¼<c2><8c>å<c2><9b>¾ä¹¦é¦<c2><86>å<c2><88><c2><99>æ<c2><98>¯å<c2><8f>¯ä»¥å<c2><80><c2><9f>é<c2><98><c2><85>书ç±<c2><8d>ç<c2><9a><c2><84>å<c2><9c>°æ<c2><96>¹ã<c2><80><c2><82>2010å¹´ï¼<c2><8c>è°·æ<c2><8c>å<c2><85>¬å<c2><8f>¸ä¼°è®¡ï¼<c2><8c>ä»<c2><8e>å<c2><8d>°å<c2><88>·æ<c2><9c>¯å<c2><8f><c2><91>æ<c2><98><c2><8e>è<c2><87>³ä»<c2><8a>ï¼<c2><8c>大æ¦<c2><82>å<c2><87>ºç<c2><89><c2><88>äº<c2><86>ä¸<c2><80>亿ä¸<c2><89>å<c2><8d><c2><83>ä¸<c2><87>æ<c2><9c>¬ä¸<c2><8d>å<c2><90><c2><8c>书å<c2><90><c2><8d>ç<c2><9a><c2><84>书ç±<c2><8d>ã<c2><80><c2><82>[1]')
+ xpk <- msgpack_pack(x)
+ xu <- msgpack_unpack(xpk)
+ stopifnot(identical(x, xu))
+ }
>
> # Complex nested object with lists and map
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xmap <- msgpack_map(key=letters[1:10], value=1:10)
> xmap$value[[3]] <- list(NULL)
> xmap$value[[4]] <- as.list(1:10)
> xmap$value[[4]][[3]] <- xmap
> xmap$value[[5]] <- x
> y <- 1:10
> names(y) <- letters[1:10]
> x <- list(1:10, y, "a", list(3,raw(4)), xmap)
> x <- msgpack_format(x)
> xpk <- msgpack_pack(x)
> xu <- msgpack_unpack(xpk)
>
> xs <- msgpack_simplify(x)
> xus <- msgpack_simplify(xu)
>
> stopifnot(identical(xs, xus))
>
> # named list can be used directly as input - should come out to a map, simplify to get a named vector
> x <- list(a=1L, b=2L)
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_simplify(msgpack_unpack(xpk)),c(a=1L, b=2L)))
>
> # multiple objects
> xpk <- msgpack_pack(1,2,3,5,"a", msgpack_format(1:10))
> xu <- msgpack_unpack(xpk)
> stopifnot(identical(msgpack_simplify(xu[[6]]), 1:10))
>
> # speed test
> if (requireNamespace("microbenchmark", quietly=TRUE)) {
+ x <- as.list(1:1e6)
+ print(microbenchmark::microbenchmark(xpk <- msgpack_pack(x), times=10)) # 500 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk), times=10)) # 150 ms
+ stopifnot(identical(xu, x))
+
+ ## vector input
+ x <- 1:1e7
+ print(microbenchmark::microbenchmark(xpk2 <- msgpack_pack(x), times=10)) # 50 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk2, simplify=T), times=10)) # 50 ms
+ stopifnot(identical(xu, x))
+ }
Unit: seconds
expr min lq mean median uq max
xpk <- msgpack_pack(x) 1.036221 1.089851 1.118412 1.131197 1.150577 1.179442
neval
10
Unit: microseconds
expr min lq mean median uq max neval
xu <- msgpack_unpack(xpk) 28.845 29.194 36.2131 29.474 30.87 93.099 10
Error: identical(xu, x) is not TRUE
Execution halted
Flavor: r-release-windows-ix86+x86_64
Version: 0.2.2
Check: running tests for arch ‘i386’
Result: ERROR
Running 'simpleTests.R' [0s]
Running 'tests.r' [15s]
Running the tests in 'tests/tests.r' failed.
Complete output:
> # Tests for testing out the functionality of the package, to make sure it isn't broken
>
> # some references
>
> # //https://github.com/msgpack/msgpack-c/blob/401460b7d99e51adc06194ceb458934b359d2139/include/msgpack/v1/adaptor/boost/msgpack_variant.hpp
> # //https://stackoverflow.com/questions/44725299/messagepack-c-how-to-iterate-through-an-unknown-data-structure
> # //https://stackoverflow.com/questions/37665361/how-to-determine-the-class-of-object-stored-in-sexp-in-rcpp
> # //https://stackoverflow.com/questions/12954852/booststatic-visitor-with-multiple-arguments
> # //https://stackoverflow.com/questions/25172419/how-can-i-get-the-sexptype-of-an-sexp-value
> # //https://github.com/wch/r-source/blob/48536f1756a88830076023db9566fbb2c1dbb29b/src/include/Rinternals.h#L1178-L1214
> # //https://stackoverflow.com/questions/16131462/how-to-use-boost-library-in-c-with-rcpp
>
>
> library(RcppMsgPack)
>
> # stopifnot <- function(...) cat(..., "\n")
>
> # Test atomic types
>
> # integer
> xpk <- msgpack_pack(1L)
> stopifnot(identical(msgpack_unpack(xpk), 1L))
>
> # double
> xpk <- msgpack_pack(1.54)
> stopifnot(identical(msgpack_unpack(xpk), 1.54))
>
> # string
> xpk <- msgpack_pack("sdfsdf")
> stopifnot(identical(msgpack_unpack(xpk), "sdfsdf"))
>
> # raw
> xpk <- msgpack_pack(as.raw(c(0x28, 0x4F)))
> stopifnot(identical(msgpack_unpack(xpk), as.raw(c(0x28, 0x4F))))
>
> # boolean
> xpk <- msgpack_pack(T)
> stopifnot(msgpack_unpack(xpk))
>
> # nil
> xpk <- msgpack_pack(NULL)
> stopifnot(is.null(msgpack_unpack(xpk)))
>
> # ext
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_unpack(xpk), x))
>
>
> if (Sys.info()[['sysname']] != "Windows") {
+ ## unicode or something characters - note this doesn't always work if you copy/paste into a terminal because of how terminals encode text, but if you source this file it works
+ x <- list('å<c2><9b>¾ä¹¦ï¼<c2><8c>é<c2><80><c2><9a>常å<c2><9c>¨ç<c2><8b>ä¹<c2><89>ä¸<c2><8a>ç<c2><9a><c2><84>ç<c2><90><c2><86>解æ<c2><98>¯å¸¦æ<c2><9c><c2><89>æ<c2><96><c2><87>å<c2><97>å<c2><92><c2><8c>å<c2><9b>¾å<c2><83><c2><8f>ç<c2><9a><c2><84>çº¸å¼ ç<c2><9a><c2><84>é<c2><9b><c2><86>å<c2><90><c2><88>ã<c2><80><c2><82>书é<c2><80><c2><9a>常ç<c2><94>±å¢¨æ°´ã<c2><80><c2><81>çº¸å¼ ã<c2><80><c2><81>ç¾<c2><8a>ç<c2><9a>®çº¸æ<c2><88><c2><96>è<c2><80><c2><85>å<c2><85>¶ä»<c2><96>æ<c2><9d><c2><90>æ<c2><96><c2><99>å<c2><9b>ºå®<c2><9a>å<c2><9c>¨ä¹¦è<c2><84><c2><8a>ä¸<c2><8a>ç»<c2><84>æ<c2><88><c2><90>ã<c2><80><c2><82>ç»<c2><84>æ<c2><88><c2><90>书ç<c2><9a><c2><84>ä¸<c2><80>å¼ çº¸ç§°ä¸ºä¸<c2><80>å¼ ï¼<c2><8c>ä¸<c2><80>å¼ ç<c2><9a><c2><84>ä¸<c2><80>é<c2><9d>¢ç§°ä¸ºä¸<c2><80>页ã<c2><80><c2><82>ä½<c2><86>é<c2><9a><c2><8f>ç<c2><9d><c2><80>ç§<c2><91>å¦æ<c2><8a><c2><80>æ<c2><9c>¯ç<c2><9a><c2><84>å<c2><8f><c2><91>å±<c2><95>ï¼<c2><8c>ç<c2><8b>ä¹<c2><89>å<c2><9b>¾ä¹¦ç<c2><9a><c2><84>æ¦<c2><82>念ä¹<c2><9f>å<c2><9c>¨æ<c2><89>©å±<c2><95>ï¼<c2><8c>å<c2><88>¶ä½<c2><9c>书ç<c2><9a><c2><84>æ<c2><9d><c2><90>æ<c2><96><c2><99>ä¹<c2><9f>å<c2><9c>¨æ<c2><94>¹å<c2><8f><c2><98>ï¼<c2><8c>å¦<c2><82>ç<c2><94>µå<c2><90>æ ¼å¼<c2><8f>ç<c2><9a><c2><84>ç<c2><94>µå<c2><90>书ã<c2><80><c2><82>ä»<c2><8e>广ä¹<c2><89>ç<c2><90><c2><86>解ç<c2><9a><c2><84>å<c2><9b>¾ä¹¦ï¼<c2><8c>å<c2><88><c2><99>æ<c2><98>¯ä¸<c2><80>å<c2><88><c2><87>ä¼ æ<c2><92>讯æ<c2><81>¯ç<c2><9a><c2><84>åª<c2><92>ä»<c2><8b>ã<c2><80><c2><82>书ä¹<c2><9f>æ<c2><8c><c2><87>æ<c2><96><c2><87>å¦ä½<c2><9c>å<c2><93><c2><81>æ<c2><88><c2><96>è<c2><80><c2><85>å<c2><85>¶ä¸ç<c2><9a><c2><84>ä¸<c2><80>é<c2><83>¨å<c2><88><c2><86>ã<c2><80><c2><82>å<c2><9c>¨å<c2><9b>¾ä¹¦é¦<c2><86>ä¿¡æ<c2><81>¯å¦ä¸ï¼<c2><8c>书被称为ä¸<c2><93>è<c2><91><c2><97>ï¼<c2><8c>以å<c2><8c>ºå<c2><88>«äº<c2><8e>æ<c2><9d><c2><82>å¿<c2><97>ã<c2><80><c2><81>å¦æ<c2><9c>¯æ<c2><9c><c2><9f>å<c2><88><c2><8a>ã<c2><80><c2><81>æ<c2><8a>¥çº¸ç<c2><89>è¿<c2><9e>è½½æ<c2><9c><c2><9f>å<c2><88><c2><8a>ã<c2><80><c2><82>æ<c2><89><c2><80>æ<c2><9c><c2><89>ç<c2><9a><c2><84>书é<c2><9d>¢ä½<c2><9c>å<c2><93><c2><81>ï¼<c2><88>å<c2><8c><c2><85>æ<c2><8b>¬å<c2><9b>¾ä¹¦ï¼<c2><89>ç<c2><9a><c2><84>主ä½<c2><93>æ<c2><98>¯æ<c2><96><c2><87>å¦ã<c2><80><c2><82>å<c2><9c>¨å°<c2><8f>说å<c2><92><c2><8c>ä¸<c2><80>äº<c2><9b>ç±»å<c2><9e><c2><8b>ï¼<c2><88>å¦<c2><82>ä¼ è®°ï¼<c2><89>ä¸ï¼<c2><8c>书å<c2><8f>¯è<c2><83>½è¿<c2><98>è¦<c2><81>å<c2><88><c2><86>æ<c2><88><c2><90>å<c2><8d>·ã<c2><80><c2><82>对书ç<c2><89>¹å<c2><88>«å<c2><96><c2><9c>ç<c2><88>±ç<c2><9a><c2><84>人被称为ç<c2><88>±ä¹¦è<c2><80><c2><85>æ<c2><88><c2><96>è<c2><97><c2><8f>书家ï¼<c2><8c>æ<c2><9b>´é<c2><9a><c2><8f>æ<c2><84><c2><8f>ç<c2><9a><c2><84>称å<c2><91>¼æ<c2><98>¯ä¹¦è<c2><99>«æ<c2><88><c2><96>è<c2><80><c2><85>书å<c2><91><c2><86>å<c2><90>ã<c2><80><c2><82>买书ç<c2><9a><c2><84>å<c2><9c>°æ<c2><96>¹å<c2><8f>«ä¹¦åº<c2><97>ï¼<c2><8c>å<c2><9b>¾ä¹¦é¦<c2><86>å<c2><88><c2><99>æ<c2><98>¯å<c2><8f>¯ä»¥å<c2><80><c2><9f>é<c2><98><c2><85>书ç±<c2><8d>ç<c2><9a><c2><84>å<c2><9c>°æ<c2><96>¹ã<c2><80><c2><82>2010å¹´ï¼<c2><8c>è°·æ<c2><8c>å<c2><85>¬å<c2><8f>¸ä¼°è®¡ï¼<c2><8c>ä»<c2><8e>å<c2><8d>°å<c2><88>·æ<c2><9c>¯å<c2><8f><c2><91>æ<c2><98><c2><8e>è<c2><87>³ä»<c2><8a>ï¼<c2><8c>大æ¦<c2><82>å<c2><87>ºç<c2><89><c2><88>äº<c2><86>ä¸<c2><80>亿ä¸<c2><89>å<c2><8d><c2><83>ä¸<c2><87>æ<c2><9c>¬ä¸<c2><8d>å<c2><90><c2><8c>书å<c2><90><c2><8d>ç<c2><9a><c2><84>书ç±<c2><8d>ã<c2><80><c2><82>[1]')
+ xpk <- msgpack_pack(x)
+ xu <- msgpack_unpack(xpk)
+ stopifnot(identical(x, xu))
+ }
>
> # Complex nested object with lists and map
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xmap <- msgpack_map(key=letters[1:10], value=1:10)
> xmap$value[[3]] <- list(NULL)
> xmap$value[[4]] <- as.list(1:10)
> xmap$value[[4]][[3]] <- xmap
> xmap$value[[5]] <- x
> y <- 1:10
> names(y) <- letters[1:10]
> x <- list(1:10, y, "a", list(3,raw(4)), xmap)
> x <- msgpack_format(x)
> xpk <- msgpack_pack(x)
> xu <- msgpack_unpack(xpk)
>
> xs <- msgpack_simplify(x)
> xus <- msgpack_simplify(xu)
>
> stopifnot(identical(xs, xus))
>
> # named list can be used directly as input - should come out to a map, simplify to get a named vector
> x <- list(a=1L, b=2L)
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_simplify(msgpack_unpack(xpk)),c(a=1L, b=2L)))
>
> # multiple objects
> xpk <- msgpack_pack(1,2,3,5,"a", msgpack_format(1:10))
> xu <- msgpack_unpack(xpk)
> stopifnot(identical(msgpack_simplify(xu[[6]]), 1:10))
>
> # speed test
> if (requireNamespace("microbenchmark", quietly=TRUE)) {
+ x <- as.list(1:1e6)
+ print(microbenchmark::microbenchmark(xpk <- msgpack_pack(x), times=10)) # 500 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk), times=10)) # 150 ms
+ stopifnot(identical(xu, x))
+
+ ## vector input
+ x <- 1:1e7
+ print(microbenchmark::microbenchmark(xpk2 <- msgpack_pack(x), times=10)) # 50 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk2, simplify=T), times=10)) # 50 ms
+ stopifnot(identical(xu, x))
+ }
Unit: seconds
expr min lq mean median uq max
xpk <- msgpack_pack(x) 1.007612 1.093072 1.130918 1.141321 1.16673 1.231066
neval
10
Unit: microseconds
expr min lq mean median uq max neval
xu <- msgpack_unpack(xpk) 24.863 25.492 33.6285 26.1205 28.146 95.892 10
Error: identical(xu, x) is not TRUE
Execution halted
Flavor: r-oldrel-windows-ix86+x86_64
Version: 0.2.2
Check: running tests for arch ‘x64’
Result: ERROR
Running 'simpleTests.R' [0s]
Running 'tests.r' [14s]
Running the tests in 'tests/tests.r' failed.
Complete output:
> # Tests for testing out the functionality of the package, to make sure it isn't broken
>
> # some references
>
> # //https://github.com/msgpack/msgpack-c/blob/401460b7d99e51adc06194ceb458934b359d2139/include/msgpack/v1/adaptor/boost/msgpack_variant.hpp
> # //https://stackoverflow.com/questions/44725299/messagepack-c-how-to-iterate-through-an-unknown-data-structure
> # //https://stackoverflow.com/questions/37665361/how-to-determine-the-class-of-object-stored-in-sexp-in-rcpp
> # //https://stackoverflow.com/questions/12954852/booststatic-visitor-with-multiple-arguments
> # //https://stackoverflow.com/questions/25172419/how-can-i-get-the-sexptype-of-an-sexp-value
> # //https://github.com/wch/r-source/blob/48536f1756a88830076023db9566fbb2c1dbb29b/src/include/Rinternals.h#L1178-L1214
> # //https://stackoverflow.com/questions/16131462/how-to-use-boost-library-in-c-with-rcpp
>
>
> library(RcppMsgPack)
>
> # stopifnot <- function(...) cat(..., "\n")
>
> # Test atomic types
>
> # integer
> xpk <- msgpack_pack(1L)
> stopifnot(identical(msgpack_unpack(xpk), 1L))
>
> # double
> xpk <- msgpack_pack(1.54)
> stopifnot(identical(msgpack_unpack(xpk), 1.54))
>
> # string
> xpk <- msgpack_pack("sdfsdf")
> stopifnot(identical(msgpack_unpack(xpk), "sdfsdf"))
>
> # raw
> xpk <- msgpack_pack(as.raw(c(0x28, 0x4F)))
> stopifnot(identical(msgpack_unpack(xpk), as.raw(c(0x28, 0x4F))))
>
> # boolean
> xpk <- msgpack_pack(T)
> stopifnot(msgpack_unpack(xpk))
>
> # nil
> xpk <- msgpack_pack(NULL)
> stopifnot(is.null(msgpack_unpack(xpk)))
>
> # ext
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_unpack(xpk), x))
>
>
> if (Sys.info()[['sysname']] != "Windows") {
+ ## unicode or something characters - note this doesn't always work if you copy/paste into a terminal because of how terminals encode text, but if you source this file it works
+ x <- list('å<c2><9b>¾ä¹¦ï¼<c2><8c>é<c2><80><c2><9a>常å<c2><9c>¨ç<c2><8b>ä¹<c2><89>ä¸<c2><8a>ç<c2><9a><c2><84>ç<c2><90><c2><86>解æ<c2><98>¯å¸¦æ<c2><9c><c2><89>æ<c2><96><c2><87>å<c2><97>å<c2><92><c2><8c>å<c2><9b>¾å<c2><83><c2><8f>ç<c2><9a><c2><84>çº¸å¼ ç<c2><9a><c2><84>é<c2><9b><c2><86>å<c2><90><c2><88>ã<c2><80><c2><82>书é<c2><80><c2><9a>常ç<c2><94>±å¢¨æ°´ã<c2><80><c2><81>çº¸å¼ ã<c2><80><c2><81>ç¾<c2><8a>ç<c2><9a>®çº¸æ<c2><88><c2><96>è<c2><80><c2><85>å<c2><85>¶ä»<c2><96>æ<c2><9d><c2><90>æ<c2><96><c2><99>å<c2><9b>ºå®<c2><9a>å<c2><9c>¨ä¹¦è<c2><84><c2><8a>ä¸<c2><8a>ç»<c2><84>æ<c2><88><c2><90>ã<c2><80><c2><82>ç»<c2><84>æ<c2><88><c2><90>书ç<c2><9a><c2><84>ä¸<c2><80>å¼ çº¸ç§°ä¸ºä¸<c2><80>å¼ ï¼<c2><8c>ä¸<c2><80>å¼ ç<c2><9a><c2><84>ä¸<c2><80>é<c2><9d>¢ç§°ä¸ºä¸<c2><80>页ã<c2><80><c2><82>ä½<c2><86>é<c2><9a><c2><8f>ç<c2><9d><c2><80>ç§<c2><91>å¦æ<c2><8a><c2><80>æ<c2><9c>¯ç<c2><9a><c2><84>å<c2><8f><c2><91>å±<c2><95>ï¼<c2><8c>ç<c2><8b>ä¹<c2><89>å<c2><9b>¾ä¹¦ç<c2><9a><c2><84>æ¦<c2><82>念ä¹<c2><9f>å<c2><9c>¨æ<c2><89>©å±<c2><95>ï¼<c2><8c>å<c2><88>¶ä½<c2><9c>书ç<c2><9a><c2><84>æ<c2><9d><c2><90>æ<c2><96><c2><99>ä¹<c2><9f>å<c2><9c>¨æ<c2><94>¹å<c2><8f><c2><98>ï¼<c2><8c>å¦<c2><82>ç<c2><94>µå<c2><90>æ ¼å¼<c2><8f>ç<c2><9a><c2><84>ç<c2><94>µå<c2><90>书ã<c2><80><c2><82>ä»<c2><8e>广ä¹<c2><89>ç<c2><90><c2><86>解ç<c2><9a><c2><84>å<c2><9b>¾ä¹¦ï¼<c2><8c>å<c2><88><c2><99>æ<c2><98>¯ä¸<c2><80>å<c2><88><c2><87>ä¼ æ<c2><92>讯æ<c2><81>¯ç<c2><9a><c2><84>åª<c2><92>ä»<c2><8b>ã<c2><80><c2><82>书ä¹<c2><9f>æ<c2><8c><c2><87>æ<c2><96><c2><87>å¦ä½<c2><9c>å<c2><93><c2><81>æ<c2><88><c2><96>è<c2><80><c2><85>å<c2><85>¶ä¸ç<c2><9a><c2><84>ä¸<c2><80>é<c2><83>¨å<c2><88><c2><86>ã<c2><80><c2><82>å<c2><9c>¨å<c2><9b>¾ä¹¦é¦<c2><86>ä¿¡æ<c2><81>¯å¦ä¸ï¼<c2><8c>书被称为ä¸<c2><93>è<c2><91><c2><97>ï¼<c2><8c>以å<c2><8c>ºå<c2><88>«äº<c2><8e>æ<c2><9d><c2><82>å¿<c2><97>ã<c2><80><c2><81>å¦æ<c2><9c>¯æ<c2><9c><c2><9f>å<c2><88><c2><8a>ã<c2><80><c2><81>æ<c2><8a>¥çº¸ç<c2><89>è¿<c2><9e>è½½æ<c2><9c><c2><9f>å<c2><88><c2><8a>ã<c2><80><c2><82>æ<c2><89><c2><80>æ<c2><9c><c2><89>ç<c2><9a><c2><84>书é<c2><9d>¢ä½<c2><9c>å<c2><93><c2><81>ï¼<c2><88>å<c2><8c><c2><85>æ<c2><8b>¬å<c2><9b>¾ä¹¦ï¼<c2><89>ç<c2><9a><c2><84>主ä½<c2><93>æ<c2><98>¯æ<c2><96><c2><87>å¦ã<c2><80><c2><82>å<c2><9c>¨å°<c2><8f>说å<c2><92><c2><8c>ä¸<c2><80>äº<c2><9b>ç±»å<c2><9e><c2><8b>ï¼<c2><88>å¦<c2><82>ä¼ è®°ï¼<c2><89>ä¸ï¼<c2><8c>书å<c2><8f>¯è<c2><83>½è¿<c2><98>è¦<c2><81>å<c2><88><c2><86>æ<c2><88><c2><90>å<c2><8d>·ã<c2><80><c2><82>对书ç<c2><89>¹å<c2><88>«å<c2><96><c2><9c>ç<c2><88>±ç<c2><9a><c2><84>人被称为ç<c2><88>±ä¹¦è<c2><80><c2><85>æ<c2><88><c2><96>è<c2><97><c2><8f>书家ï¼<c2><8c>æ<c2><9b>´é<c2><9a><c2><8f>æ<c2><84><c2><8f>ç<c2><9a><c2><84>称å<c2><91>¼æ<c2><98>¯ä¹¦è<c2><99>«æ<c2><88><c2><96>è<c2><80><c2><85>书å<c2><91><c2><86>å<c2><90>ã<c2><80><c2><82>买书ç<c2><9a><c2><84>å<c2><9c>°æ<c2><96>¹å<c2><8f>«ä¹¦åº<c2><97>ï¼<c2><8c>å<c2><9b>¾ä¹¦é¦<c2><86>å<c2><88><c2><99>æ<c2><98>¯å<c2><8f>¯ä»¥å<c2><80><c2><9f>é<c2><98><c2><85>书ç±<c2><8d>ç<c2><9a><c2><84>å<c2><9c>°æ<c2><96>¹ã<c2><80><c2><82>2010å¹´ï¼<c2><8c>è°·æ<c2><8c>å<c2><85>¬å<c2><8f>¸ä¼°è®¡ï¼<c2><8c>ä»<c2><8e>å<c2><8d>°å<c2><88>·æ<c2><9c>¯å<c2><8f><c2><91>æ<c2><98><c2><8e>è<c2><87>³ä»<c2><8a>ï¼<c2><8c>大æ¦<c2><82>å<c2><87>ºç<c2><89><c2><88>äº<c2><86>ä¸<c2><80>亿ä¸<c2><89>å<c2><8d><c2><83>ä¸<c2><87>æ<c2><9c>¬ä¸<c2><8d>å<c2><90><c2><8c>书å<c2><90><c2><8d>ç<c2><9a><c2><84>书ç±<c2><8d>ã<c2><80><c2><82>[1]')
+ xpk <- msgpack_pack(x)
+ xu <- msgpack_unpack(xpk)
+ stopifnot(identical(x, xu))
+ }
>
> # Complex nested object with lists and map
> x <- as.raw(c(0x28, 0x4F))
> attr(x, "EXT") <- 1L
> xmap <- msgpack_map(key=letters[1:10], value=1:10)
> xmap$value[[3]] <- list(NULL)
> xmap$value[[4]] <- as.list(1:10)
> xmap$value[[4]][[3]] <- xmap
> xmap$value[[5]] <- x
> y <- 1:10
> names(y) <- letters[1:10]
> x <- list(1:10, y, "a", list(3,raw(4)), xmap)
> x <- msgpack_format(x)
> xpk <- msgpack_pack(x)
> xu <- msgpack_unpack(xpk)
>
> xs <- msgpack_simplify(x)
> xus <- msgpack_simplify(xu)
>
> stopifnot(identical(xs, xus))
>
> # named list can be used directly as input - should come out to a map, simplify to get a named vector
> x <- list(a=1L, b=2L)
> xpk <- msgpack_pack(x)
> stopifnot(identical(msgpack_simplify(msgpack_unpack(xpk)),c(a=1L, b=2L)))
>
> # multiple objects
> xpk <- msgpack_pack(1,2,3,5,"a", msgpack_format(1:10))
> xu <- msgpack_unpack(xpk)
> stopifnot(identical(msgpack_simplify(xu[[6]]), 1:10))
>
> # speed test
> if (requireNamespace("microbenchmark", quietly=TRUE)) {
+ x <- as.list(1:1e6)
+ print(microbenchmark::microbenchmark(xpk <- msgpack_pack(x), times=10)) # 500 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk), times=10)) # 150 ms
+ stopifnot(identical(xu, x))
+
+ ## vector input
+ x <- 1:1e7
+ print(microbenchmark::microbenchmark(xpk2 <- msgpack_pack(x), times=10)) # 50 ms
+ print(microbenchmark::microbenchmark(xu <- msgpack_unpack(xpk2, simplify=T), times=10)) # 50 ms
+ stopifnot(identical(xu, x))
+ }
Unit: milliseconds
expr min lq mean median uq max
xpk <- msgpack_pack(x) 926.0284 1089.487 1092.35 1096.832 1157.913 1171.614
neval
10
Unit: microseconds
expr min lq mean median uq max neval
xu <- msgpack_unpack(xpk) 22.768 23.537 31.2963 23.956 24.654 96.242 10
Error: identical(xu, x) is not TRUE
Execution halted
Flavor: r-oldrel-windows-ix86+x86_64
Current CRAN status: OK: 11
Current CRAN status: NOTE: 12
Version: 0.0.2
Check: pragmas in C/C++ headers and code
Result: NOTE
Files which contain pragma(s) suppressing diagnostics:
‘inst/include/ql/math/distributions/normaldistribution.hpp’
‘inst/include/ql/math/matrix.hpp’
‘inst/include/ql/math/optimization/levenbergmarquardt.hpp’
‘inst/include/ql/math/statistics/incrementalstatistics.hpp’
‘inst/include/ql/time/date.hpp’ ‘inst/include/ql/time/imm.hpp’
‘inst/include/ql/utilities/dataparsers.hpp’
‘inst/include/ql/utilities/null.hpp’
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-ix86+x86_64, r-patched-linux-x86_64, r-release-linux-x86_64, r-release-windows-ix86+x86_64
Version: 0.0.2
Check: installed package size
Result: NOTE
installed size is 23.1Mb
sub-directories of 1Mb or more:
include 8.9Mb
libs 14.1Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-windows-ix86+x86_64, r-patched-solaris-x86, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64
Current CRAN status: ERROR: 2, OK: 9
Version: 0.1.8
Check: whether package can be installed
Result: ERROR
Installation failed.
Flavors: r-release-osx-x86_64, r-oldrel-osx-x86_64
Current CRAN status: NOTE: 1, OK: 11
Version: 0.2.1
Check: installed package size
Result: NOTE
installed size is 6.5Mb
sub-directories of 1Mb or more:
libs 6.2Mb
Flavor: r-devel-linux-x86_64-fedora-clang
Current CRAN status: NOTE: 4, OK: 8
Version: 0.1.1
Check: installed package size
Result: NOTE
installed size is 7.7Mb
sub-directories of 1Mb or more:
libs 6.9Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-release-osx-x86_64, r-oldrel-osx-x86_64
Version: 0.1.1
Check: compiled code
Result: NOTE
File ‘RcppStreams/libs/RcppStreams.so’:
Found no calls to: ‘R_registerRoutines’, ‘R_useDynamicSymbols’
It is good practice to register native routines and to disable symbol
search.
See ‘Writing portable packages’ in the ‘Writing R Extensions’ manual.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Current CRAN status: OK: 12
Current CRAN status: NOTE: 12
Version: 0.0.4
Check: dependencies in R code
Result: NOTE
Package in Depends field not imported from: ‘methods’
These packages need to be imported from (in the NAMESPACE file)
for when this namespace is loaded but not attached.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-ix86+x86_64, r-patched-linux-x86_64, r-patched-solaris-x86, r-release-linux-x86_64, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64
Version: 0.0.4
Check: compiled code
Result: NOTE
File ‘RcppXts/libs/RcppXts.so’:
Found no calls to: ‘R_registerRoutines’, ‘R_useDynamicSymbols’
It is good practice to register native routines and to disable symbol
search.
See ‘Writing portable packages’ in the ‘Writing R Extensions’ manual.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Current CRAN status: OK: 12
Current CRAN status: ERROR: 3, OK: 4
Version: 0.1.3
Check: whether package can be installed
Result: ERROR
Installation failed.
Flavor: r-release-windows-ix86+x86_64
Version: 0.1.4
Check: whether package can be installed
Result: ERROR
Installation failed.
Flavors: r-release-osx-x86_64, r-oldrel-osx-x86_64
Current CRAN status: OK: 12
Current CRAN status: NOTE: 12
Version: 0.2.14
Check: compiled code
Result: NOTE
File ‘RInside/libs/RInside.so’:
Found ‘srand’, possibly from ‘srand’ (C)
Object: ‘RInside.o’
File ‘RInside/libs/RInside.so’:
Found non-API calls to R: ‘R_CStackLimit’, ‘R_CleanTempDir’,
‘R_DefParams’, ‘R_ReplDLLdo1’, ‘R_ReplDLLinit’,
‘R_RunExitFinalizers’, ‘R_SetParams’, ‘R_SignalHandlers’,
‘R_TempDir’, ‘Rf_endEmbeddedR’, ‘Rf_initEmbeddedR’
Compiled code should not call entry points which might terminate R nor
write to stdout/stderr instead of to the console, nor use Fortran I/O
nor system RNGs.
Compiled code should not call non-API entry points in R.
See ‘Writing portable packages’ in the ‘Writing R Extensions’ manual.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64, r-patched-solaris-x86, r-release-linux-x86_64
Version: 0.2.14
Check: compiled code
Result: NOTE
File ‘RInside/libs/RInside.so’:
Found ‘srand’, possibly from ‘srand’ (C)
Object: ‘RInside.o’
File ‘RInside/libs/RInside.so’:
Found non-API calls to R: ‘R_CStackLimit’, ‘R_CleanTempDir’,
‘R_DefParams’, ‘R_ReplDLLdo1’, ‘R_ReplDLLinit’,
‘R_RunExitFinalizers’, ‘R_SetParams’, ‘R_SignalHandlers’,
‘R_TempDir’, ‘Rf_endEmbeddedR’, ‘Rf_initEmbeddedR’
File ‘RInside/libs/RInside.so’:
Found no calls to: ‘R_registerRoutines’, ‘R_useDynamicSymbols’
Compiled code should not call entry points which might terminate R nor
write to stdout/stderr instead of to the console, nor use Fortran I/O
nor system RNGs.
Compiled code should not call non-API entry points in R.
It is good practice to register native routines and to disable symbol
search.
See ‘Writing portable packages’ in the ‘Writing R Extensions’ manual.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 0.2.14
Check: installed package size
Result: NOTE
installed size is 8.8Mb
sub-directories of 1Mb or more:
lib 3.5Mb
libs 4.8Mb
Flavors: r-devel-windows-ix86+x86_64, r-release-windows-ix86+x86_64, r-oldrel-windows-ix86+x86_64
Version: 0.2.14
Check: compiled code
Result: NOTE
File 'RInside/libs/i386/RInside.dll':
Found 'srand', possibly from 'srand' (C)
Object: 'RInside.o'
File 'RInside/libs/x64/RInside.dll':
Found 'srand', possibly from 'srand' (C)
Object: 'RInside.o'
File 'RInside/libs/i386/libRInside.dll':
Found 'srand', possibly from 'srand' (C)
Object: 'RInside.o'
File 'RInside/libs/x64/libRInside.dll':
Found 'srand', possibly from 'srand' (C)
Object: 'RInside.o'
File 'RInside/libs/i386/RInside.dll':
Found non-API calls to R: 'R_CleanTempDir', 'R_DefParams',
'R_ReplDLLdo1', 'R_ReplDLLinit', 'R_RunExitFinalizers',
'R_SetParams', 'R_TempDir', 'Rf_endEmbeddedR', 'Rf_initEmbeddedR',
'getRUser', 'get_R_HOME'
File 'RInside/libs/x64/RInside.dll':
Found non-API calls to R: 'R_CleanTempDir', 'R_DefParams',
'R_ReplDLLdo1', 'R_ReplDLLinit', 'R_RunExitFinalizers',
'R_SetParams', 'R_TempDir', 'Rf_endEmbeddedR', 'Rf_initEmbeddedR',
'getRUser', 'get_R_HOME'
File 'RInside/libs/i386/libRInside.dll':
Found non-API calls to R: 'R_CleanTempDir', 'R_DefParams',
'R_ReplDLLdo1', 'R_ReplDLLinit', 'R_RunExitFinalizers',
'R_SetParams', 'R_TempDir', 'Rf_endEmbeddedR', 'Rf_initEmbeddedR',
'getRUser', 'get_R_HOME'
File 'RInside/libs/x64/libRInside.dll':
Found non-API calls to R: 'R_CleanTempDir', 'R_DefParams',
'R_ReplDLLdo1', 'R_ReplDLLinit', 'R_RunExitFinalizers',
'R_SetParams', 'R_TempDir', 'Rf_endEmbeddedR', 'Rf_initEmbeddedR',
'getRUser', 'get_R_HOME'
Compiled code should not call entry points which might terminate R nor
write to stdout/stderr instead of to the console, nor use Fortran I/O
nor system RNGs.
Compiled code should not call non-API entry points in R.
See 'Writing portable packages' in the 'Writing R Extensions' manual.
Flavors: r-devel-windows-ix86+x86_64, r-release-windows-ix86+x86_64, r-oldrel-windows-ix86+x86_64
Version: 0.2.14
Check: compiled code
Result: NOTE
File ‘RInside/libs/RInside.so’:
Found ‘_srand’, possibly from ‘srand’ (C)
Object: ‘RInside.o’
File ‘RInside/libs/RInside.so’:
Found non-API calls to R: ‘R_CStackLimit’, ‘R_CleanTempDir’,
‘R_DefParams’, ‘R_ReplDLLdo1’, ‘R_ReplDLLinit’,
‘R_RunExitFinalizers’, ‘R_SetParams’, ‘R_SignalHandlers’,
‘R_TempDir’, ‘Rf_endEmbeddedR’, ‘Rf_initEmbeddedR’
Compiled code should not call entry points which might terminate R nor
write to stdout/stderr instead of to the console, nor use Fortran I/O
nor system RNGs.
Compiled code should not call non-API entry points in R.
See ‘Writing portable packages’ in the ‘Writing R Extensions’ manual.
Flavor: r-release-osx-x86_64
Version: 0.2.14
Check: compiled code
Result: NOTE
File ‘RInside/libs/RInside.so’:
Found ‘_srand’, possibly from ‘srand’ (C)
Object: ‘RInside.o’
File ‘RInside/libs/RInside.so’:
Found non-API calls to R: ‘R_CStackLimit’, ‘R_CleanTempDir’,
‘R_DefParams’, ‘R_ReplDLLdo1’, ‘R_ReplDLLinit’,
‘R_RunExitFinalizers’, ‘R_SetParams’, ‘R_SignalHandlers’,
‘R_TempDir’, ‘Rf_endEmbeddedR’, ‘Rf_initEmbeddedR’
Compiled code should not call entry points which might terminate R nor
write to stdout/stderr instead of to the console, nor the system RNG.
Compiled code should not call non-API entry points in R.
See ‘Writing portable packages’ in the ‘Writing R Extensions’ manual.
Flavor: r-oldrel-osx-x86_64
Current CRAN status: OK: 12
Current CRAN status: ERROR: 3, NOTE: 3, OK: 5
Version: 0.4.12
Check: installed package size
Result: NOTE
installed size is 9.9Mb
sub-directories of 1Mb or more:
doc 1.1Mb
libs 7.8Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-windows-ix86+x86_64, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64
Version: 0.4.12
Check: running examples for arch ‘i386’
Result: ERROR
Running examples in 'RProtoBuf-Ex.R' failed
The error most likely occurred in:
> ### Name: readASCII-methods
> ### Title: read a message in ASCII format
> ### Aliases: readASCII readASCII-methods readASCII,Descriptor,ANY-method
> ### readASCII,Descriptor,character-method
> ### Keywords: methods
>
> ### ** Examples
>
> # example file that contains a "tutorial.AddressBook" message
> book <- system.file( "examples", "addressbook.pb", package = "RProtoBuf" )
>
> # read the message
> message <- read( tutorial.AddressBook, book )
>
> # Output in text format to a temporary file
> out.file <- tempfile()
> writeLines( as.character(message), file(out.file))
>
> # Verify that we can read back in the message from a text file.
> message2 <- readASCII( tutorial.AddressBook, file(out.file, "rb"))
>
> # Verify that we can read back in the message from an unopened file.
> message3 <- readASCII( tutorial.AddressBook, file(out.file))
>
> ## Don't show:
> stopifnot( identical( message, message2) )
> ## End(Don't show)
>
>
>
> cleanEx()
Error: connections left open:
D:\temp\Rtmp8GXm7X\file2e4703179417b (file)
Execution halted
Flavor: r-devel-windows-ix86+x86_64
Version: 0.4.12
Check: running examples for arch ‘x64’
Result: ERROR
Running examples in 'RProtoBuf-Ex.R' failed
The error most likely occurred in:
> ### Name: readASCII-methods
> ### Title: read a message in ASCII format
> ### Aliases: readASCII readASCII-methods readASCII,Descriptor,ANY-method
> ### readASCII,Descriptor,character-method
> ### Keywords: methods
>
> ### ** Examples
>
> # example file that contains a "tutorial.AddressBook" message
> book <- system.file( "examples", "addressbook.pb", package = "RProtoBuf" )
>
> # read the message
> message <- read( tutorial.AddressBook, book )
>
> # Output in text format to a temporary file
> out.file <- tempfile()
> writeLines( as.character(message), file(out.file))
>
> # Verify that we can read back in the message from a text file.
> message2 <- readASCII( tutorial.AddressBook, file(out.file, "rb"))
>
> # Verify that we can read back in the message from an unopened file.
> message3 <- readASCII( tutorial.AddressBook, file(out.file))
>
> ## Don't show:
> stopifnot( identical( message, message2) )
> ## End(Don't show)
>
>
>
> cleanEx()
Error: connections left open:
D:\temp\RtmpUrAXoq\file32cc5702751c (file)
Execution halted
Flavor: r-devel-windows-ix86+x86_64
Version: 0.4.12
Check: tests
Result: ERROR
Running ‘runUnitTests.R’ [2s/2s]
Running the tests in ‘tests/runUnitTests.R’ failed.
Last 13 lines of output:
---------------------------
Test file: /Volumes/SSD-Data/Builds/R-dev-web/QA/Simon/packages/el-capitan-x86_64/results/3.5/RProtoBuf.Rcheck/RProtoBuf/unitTests/runit.serialize_pb.R
test.serialize.sublist: (1 checks) ... OK (0.01 seconds)
test.serialize_pb: (2 checks) ... OK (0.03 seconds)
test.serialize_pb.alldatasets: (1 checks) ... OK (0.54 seconds)
>
> ## Return success or failure to R CMD CHECK
> if (getErrors(tests)$nFail > 0) {
+ stop("TEST FAILED!")
+ }
> if (getErrors(tests)$nErr > 0) {
+ stop("TEST HAD ERRORS!")
+ }
Error: TEST HAD ERRORS!
Execution halted
Flavor: r-release-osx-x86_64
Version: 0.4.12
Check: tests
Result: ERROR
Running ‘runUnitTests.R’ [2s/2s]
Running the tests in ‘tests/runUnitTests.R’ failed.
Last 13 lines of output:
---------------------------
Test file: /Volumes/SSD-Data/Builds/R-dev-web/QA/Simon/packages/el-capitan-x86_64/results/3.4/RProtoBuf.Rcheck/RProtoBuf/unitTests/runit.serialize_pb.R
test.serialize.sublist: (1 checks) ... OK (0.04 seconds)
test.serialize_pb: (2 checks) ... OK (0.03 seconds)
test.serialize_pb.alldatasets: (1 checks) ... OK (0.52 seconds)
>
> ## Return success or failure to R CMD CHECK
> if (getErrors(tests)$nFail > 0) {
+ stop("TEST FAILED!")
+ }
> if (getErrors(tests)$nErr > 0) {
+ stop("TEST HAD ERRORS!")
+ }
Error: TEST HAD ERRORS!
Execution halted
Flavor: r-oldrel-osx-x86_64
Current CRAN status: OK: 12
Current CRAN status: ERROR: 2, NOTE: 3, OK: 4
Version: 0.4.5
Check: installed package size
Result: NOTE
installed size is 27.0Mb
sub-directories of 1Mb or more:
libs 26.4Mb
Flavors: r-devel-windows-ix86+x86_64, r-release-windows-ix86+x86_64, r-oldrel-windows-ix86+x86_64
Version: 0.4.5
Check: whether package can be installed
Result: ERROR
Installation failed.
Flavors: r-release-osx-x86_64, r-oldrel-osx-x86_64
Current CRAN status: ERROR: 2, NOTE: 1, OK: 5
Version: 0.0.12
Check: installed package size
Result: NOTE
installed size is 24.4Mb
sub-directories of 1Mb or more:
libs 4.7Mb
test 19.6Mb
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.0.12
Check: whether package can be installed
Result: ERROR
Installation failed.
Flavors: r-release-osx-x86_64, r-oldrel-osx-x86_64
Current CRAN status: NOTE: 2, OK: 10
Version: 0.1.0
Check: compiled code
Result: NOTE
File ‘sanitizers/libs/sanitizers.so’:
Found no calls to: ‘R_registerRoutines’, ‘R_useDynamicSymbols’
It is good practice to register native routines and to disable symbol
search.
See ‘Writing portable packages’ in the ‘Writing R Extensions’ manual.
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Current CRAN status: NOTE: 7, OK: 5
Version: 0.1.0
Check: installed package size
Result: NOTE
installed size is 5.2Mb
sub-directories of 1Mb or more:
doc 3.7Mb
rmarkdown 1.3Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-windows-ix86+x86_64, r-patched-solaris-x86, r-release-windows-ix86+x86_64, r-release-osx-x86_64, r-oldrel-windows-ix86+x86_64, r-oldrel-osx-x86_64
Current CRAN status: NOTE: 3, OK: 9
Version: 1.1.39-1
Check: installed package size
Result: NOTE
installed size is 5.6Mb
sub-directories of 1Mb or more:
bin 5.4Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-release-osx-x86_64, r-oldrel-osx-x86_64