{"id":21089189,"url":"https://github.com/rrmn/r-equality-table","last_synced_at":"2026-01-02T13:10:29.300Z","repository":{"id":216147772,"uuid":"740581426","full_name":"rrmn/r-equality-table","owner":"rrmn","description":null,"archived":false,"fork":false,"pushed_at":"2024-01-08T17:05:26.000Z","size":7,"stargazers_count":0,"open_issues_count":0,"forks_count":0,"subscribers_count":1,"default_branch":"main","last_synced_at":"2025-01-21T00:49:49.743Z","etag":null,"topics":[],"latest_commit_sha":null,"homepage":null,"language":null,"has_issues":true,"has_wiki":null,"has_pages":null,"mirror_url":null,"source_name":null,"license":null,"status":null,"scm":"git","pull_requests_enabled":true,"icon_url":"https://github.com/rrmn.png","metadata":{"files":{"readme":"README.md","changelog":null,"contributing":null,"funding":null,"license":null,"code_of_conduct":null,"threat_model":null,"audit":null,"citation":null,"codeowners":null,"security":null,"support":null,"governance":null,"roadmap":null,"authors":null,"dei":null,"publiccode":null,"codemeta":null}},"created_at":"2024-01-08T16:29:09.000Z","updated_at":"2024-01-09T14:39:26.000Z","dependencies_parsed_at":null,"dependency_job_id":"73562cff-5f51-4833-99db-7fd2fb632700","html_url":"https://github.com/rrmn/r-equality-table","commit_stats":null,"previous_names":["rrmn/r-equality-table"],"tags_count":0,"template":false,"template_full_name":null,"repository_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/rrmn%2Fr-equality-table","tags_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/rrmn%2Fr-equality-table/tags","releases_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/rrmn%2Fr-equality-table/releases","manifests_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/rrmn%2Fr-equality-table/manifests","owner_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners/rrmn","download_url":"https://codeload.github.com/rrmn/r-equality-table/tar.gz/refs/heads/main","host":{"name":"GitHub","url":"https://github.com","kind":"github","repositories_count":243532549,"owners_count":20306155,"icon_url":"https://github.com/github.png","version":null,"created_at":"2022-05-30T11:31:42.601Z","updated_at":"2022-07-04T15:15:14.044Z","host_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub","repositories_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories","repository_names_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repository_names","owners_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners"}},"keywords":[],"created_at":"2024-11-19T21:23:58.056Z","updated_at":"2026-01-02T13:10:29.255Z","avatar_url":"https://github.com/rrmn.png","language":null,"funding_links":[],"categories":[],"sub_categories":[],"readme":"Equality in R is mostly straightforward, but sometimes it's not. Take care.\n\n### Example\n```\n0 == 0        --\u003e ✅ 𝗧𝗥𝗨𝗘\n0 == \"0\"      --\u003e ✅ 𝗧𝗥𝗨𝗘\n0 == FALSE    --\u003e ✅ 𝗧𝗥𝗨𝗘\n𝗯𝘂𝘁:\nFALSE == \"0\"  --\u003e ❌ 𝗙𝗔𝗟𝗦𝗘 \n```\n\n### Thanks\nThanks to [dorey](https://github.com/dorey) for the [idea](https://github.com/dorey/JavaScript-Equality-Table).\n\n### Comparison Table\n![image](https://github.com/rrmn/r-equality-table/assets/14080347/b413c12c-034b-410d-b835-b1eb54dd4cbf)\n\n\n### Code\n```\n\n# sorry for the hacky code :-)\nx_labels \u003c- c(\n    \"FALSE\", \"F\", \"0\", \"\\\"0\\\"\", \"0L\", \"\\\"0L\\\"\", \"0.0\", \"\\\"0.0\\\"\", \"0.0L\", \"\\\"0.0L\\\"\", \"list(0)\", \"c(0)\",\n    \"TRUE\", \"T\", \"1\", \"\\\"1\\\"\", \"1L\", \"\\\"1L\\\"\", \"1.0\", \"\\\"1.0\\\"\", \"1.0L\", \"\\\"1.0L\\\"\", \"list(1)\", \"c(1)\",\n    \"NA\", \"NULL\", \"NaN\",\n    \"Inf\", \"-Inf\"\n)\n\nres_v \u003c- vector(mode = \"character\", length = length(x_labels) ^ 2)\nres_comp \u003c- vector(mode = \"character\", length = length(x_labels) ^ 2)\nfor (i in 1:length(x_labels)) {\n    for (j in 1:length(x_labels)) {\n        r \u003c- tryCatch(\n            expr = {\n                as.character(eval(rlang::parse_expr(x_labels[i])) == eval(rlang::parse_expr(x_labels[j])))\n            },\n            error = function(e) {\n                \"Not implemented\"\n            }\n        )\n        if (length(r) == 0) {\n            r \u003c- \"logical(0)\"\n        }\n        if (is.na(r)) {\n            r \u003c- \"NA\"\n        }\n        res_v[((i - 1) * length(x_labels)) + j] \u003c- r\n    } \n}\n\nres_df \u003c- tibble(x = x_labels) %\u003e%\n    crossing(tibble(y = x_labels)) %\u003e%\n    ungroup() %\u003e%\n    # arrange(match(x, x_labels), match(y, x_labels)) %\u003e%\n    mutate(\n        x = factor(x),\n        y = factor(y)\n    ) %\u003e%\n    group_by(x) %\u003e%\n    mutate(\n        xmax = cur_group_id(),\n        xmin = xmax - 1\n    ) %\u003e%\n    ungroup() %\u003e%\n    group_by(y) %\u003e%\n    mutate(\n        ymax = cur_group_id(),\n        ymin = ymax - 1\n    ) %\u003e%\n    ungroup() %\u003e%\n    mutate(\n        c = factor(res_v, levels = c(\"TRUE\", \"FALSE\", \"NA\", \"logical(0)\", \"Not implemented\"))\n    )\n\nggplot(res_df) + \n    geom_rect(\n        aes(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax, fill = c),\n        color = \"#111111\",\n        alpha = 0.7,\n        stat = \"identity\"\n    ) +\n    theme(\n        legend.title = element_blank(), panel.grid.major = element_blank(),\n        panel.grid.minor = element_blank(), panel.background = element_blank(), \n        axis.line = element_line(colour = \"black\")\n    ) +\n    scale_fill_manual(values = c(\"#06d6a0\", \"#ef476f\", \"#8d99ae\", \"#118ab2\", \"#073b4c\")) +\n    scale_y_continuous(expand=c(0,0), breaks = 1:length(x_labels) - 0.5, labels = x_labels) +\n    scale_x_continuous(expand=c(0,0), breaks = 1:length(x_labels) - 0.5, labels = x_labels) \n    \n```\n","project_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Frrmn%2Fr-equality-table","html_url":"https://awesome.ecosyste.ms/projects/github.com%2Frrmn%2Fr-equality-table","lists_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Frrmn%2Fr-equality-table/lists"}