From 0a0978f8d30449202cecc51ba88529662e626240 Mon Sep 17 00:00:00 2001 From: Kazuharu Yanagimoto Date: Fri, 18 Oct 2024 18:29:11 +0200 Subject: [PATCH] simplify GHA --- .Rprofile | 1 - .github/workflows/publish.yml | 5 +- .gitignore | 3 +- _freeze/cv/execute-results/typ.json | 15 - _freeze/cv_photo/execute-results/html.json | 15 - _freeze/cv_photo/execute-results/typ.json | 15 - _quarto.yml | 5 +- assets/icon/si-bluesky.svg | 1 + cv.qmd | 5 +- data/conference.csv | 1 + data/other.csv | 4 +- data/research.csv | 4 +- renv.lock | 422 ------- renv/.gitignore | 7 - renv/activate.R | 1220 -------------------- renv/settings.json | 19 - 16 files changed, 17 insertions(+), 1725 deletions(-) delete mode 100644 .Rprofile delete mode 100644 _freeze/cv/execute-results/typ.json delete mode 100644 _freeze/cv_photo/execute-results/html.json delete mode 100644 _freeze/cv_photo/execute-results/typ.json create mode 100644 assets/icon/si-bluesky.svg delete mode 100644 renv.lock delete mode 100644 renv/.gitignore delete mode 100644 renv/activate.R delete mode 100644 renv/settings.json diff --git a/.Rprofile b/.Rprofile deleted file mode 100644 index 81b960f..0000000 --- a/.Rprofile +++ /dev/null @@ -1 +0,0 @@ -source("renv/activate.R") diff --git a/.github/workflows/publish.yml b/.github/workflows/publish.yml index ed23507..8dddb6d 100644 --- a/.github/workflows/publish.yml +++ b/.github/workflows/publish.yml @@ -18,7 +18,10 @@ jobs: uses: quarto-dev/quarto-actions/setup@v2 - uses: r-lib/actions/setup-r@v2 - - uses: r-lib/actions/setup-renv@v2 + - name: Install dependencies + run: | + Rscript -e 'install.packages("typstcv", repos = "https://kazuyanagimoto.r-universe.dev")' + Rscript -e 'install.packages("rmarkdown")' - name: Render and Publish uses: quarto-dev/quarto-actions/publish@v2 diff --git a/.gitignore b/.gitignore index e7c2f09..55b4a3c 100644 --- a/.gitignore +++ b/.gitignore @@ -44,4 +44,5 @@ docs/* !docs/index.html !docs/_config.yml /.quarto/ -cv.typ \ No newline at end of file +cv.typ +.DS_Store \ No newline at end of file diff --git a/_freeze/cv/execute-results/typ.json b/_freeze/cv/execute-results/typ.json deleted file mode 100644 index 06667ef..0000000 --- a/_freeze/cv/execute-results/typ.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "hash": "5f2e77db0614d93fb70abe9c2ab98448", - "result": { - "engine": "knitr", - "markdown": "---\ntitle: \"Kazuharu Yanagimoto\"\nauthor:\n firstname: Kazuharu\n lastname: Yanagimoto\n address: CEMFI, Calle Casado del Alisal 5, 28014 Madrid, Spain\n position: \"Ph.D. Candidate in Economics. Labor, Macro, and Family Economics.\"\n contacts:\n - icon: fa envelope\n text: kazuharu.yanagimoto@cemfi.edu.es\n url: \"mailto:kazuharu.yanagimoto@cemfi.edu.es\"\n - icon: assets/icon/bi-house-fill.svg\n text: kazuyanagimoto.com\n url: https://kazuyanagimoto.com\n - icon: fa brands orcid\n text: 0009-0007-1967-8304\n url: https://orcid.org/0009-0007-1967-8304\n - icon: fa brands github\n text: kazuyanagimoto\n url: https://github.com/kazuyanagimoto\n - icon: fa brands x-twitter\n text: kazuyanagimoto\n url: https://twitter.com/kazuyanagimoto\n - icon: assets/icon/fa-google-scholar.svg\n text: Kazuharu Yanagimoto\n url: https://scholar.google.com/citations?user=kypV1CYAAAAJ\n - icon: fa brands linkedin\n text: Kazuharu Yanagimoto\n url: https://www.linkedin.com/in/kazuharu-yanagimoto\n - icon: assets/icon/si-zenn.svg\n text: Kazuharu Yanagimoto\n url: https://zenn.dev/nicetak\nstyle:\n color-accent: 516db0\nformat:\n awesomecv-typst:\n font-paths: [\"assets/fonts/\"]\n keep-typ: true\nexecute: \n echo: false\n warning: false\n---\n\n::: {.cell}\n\n:::\n\n\n\n\n## Education\n\n\n\n```{=typst}\n#resume-entry(title: \"Ph.D. Candidate in Economics\",location: \"Madrid, Spain\",date: \"Sep 2021 - Present\",description: \"CEMFI\",)\n#resume-entry(title: \"Master in Economics and Finance\",location: \"Madrid, Spain\",date: \"Sep 2019 - Jun 2021\",description: \"CEMFI\",)\n#resume-entry(title: \"Bachelor in Economics\",location: \"Tokyo, Japan\",date: \"Apr 2014 - Mar 2019\",description: \"The University of Tokyo\",)\n```\n\n\n\n## Research\n\n\n\n::: {.cell}\n\n:::\n\n\n\n### Working Papers\n\n\n\n```{=typst}\n#resume-entry(title: \"Why not Choose a Better Job? Flexibility, Social Norms, and Gender Gaps in Japan\",date: \"2024\",description: \"\",)\n#resume-entry(title: \"Flexible Analysis of Individual Heterogeneity in Event Studies\",date: \"2024\",description: \"joint with Dmitry Arkhangelsky and Tom Zohar\",)\n```\n\n\n\n### Work in Progress\n\n\n\n```{=typst}\n#resume-entry(title: \"A Quantitative Model of Non/Late Marriage\",description: \"\",)\n#resume-entry(title: \"How can food programs support social distancing during a pandemic? Evidence from the Bayan Bayanihan Program in the Philippines during COVID-19\",description: \"joint with Christopher James Cabuay, Yasuyuki Sawada, Elaine Tan,\nArturo Martinez,Jr., Daniel Boller, Joseph Albert, Nino Bulan, Ron Lester Durante, and Soyoka Okumura\",)\n```\n\n\n\n## Conference and Seminar Presentations\n\n\n\n```{=typst}\n#resume-entry(title: \"Society of Economics of the Household (SEHO) meeting\",location: \"Copenhagen, Denmark\",date: \"Jun 2023\",)\n#resume-entry(title: \"47th Simposio de la Asociación Española de Economía (SAEe)\",location: \"Valencia, Spain\",date: \"Dec 2022\",)\n```\n\n\n\n## Research Experience\n\n\n\n```{=typst}\n#resume-entry(title: \"Research Assistant to Dr. Dmitry Arkhangelsky\",location: \"Madrid, Spain\",date: \"Sep 2023 - Present\",description: \"CEMFI\",)\n#resume-entry(title: \"Ph.D. Internship in Econ | AI Lab\",location: \"Tokyo, Japan\",date: \"Jul 2022 - Sep 2022\",description: \"CyberAgent, Inc.\",)\n#resume-entry(title: \"Research Assistant to Prof. Paula Bustos\",location: \"Madrid, Spain\",date: \"Jul 2022 - Aug 2020\",description: \"CEMFI\",)\n#resume-entry(title: \"Research Assistant to Dr. Tom Zohar\",location: \"Madrid, Spain\",date: \"Sep 2021 - Jun 2023\",description: \"CEMFI\",)\n#resume-entry(title: \"Research Assistant in Survey Research Center\",location: \"Tokyo, Japan\",date: \"Jan 2019 - Jul 2019\",description: \"Recruit Works Institute\",)\n#resume-entry(title: \"Research Assistant to Prof. Hidehiko Ichimura\",location: \"Tokyo, Japan\",date: \"Sep 2016 - Jun 2019\",description: \"The University of Tokyo\",)\n```\n\n\n\n## Teaching Experience\n\n\n\n```{=typst}\n#resume-entry(title: \"Teaching Assistant in Time-series Econometrics\",location: \"Madrid, Spain\",date: \"Jan 2024 - Mar 2024\",description: \"CEMFI\",)\n#resume-entry(title: \"Teaching Assistant in International Economics\",location: \"Madrid, Spain\",date: \"Jan 2023 - Mar 2024\",description: \"CEMFI\",)\n#resume-entry(title: \"Teaching Assistant in Mathematics\",location: \"Madrid, Spain\",date: \"Sep 2021 - Dec 2021\",description: \"CEMFI\",)\n```\n\n\n\n## Other Experience\n\n\n\n```{=typst}\n#resume-entry(title: \"RA Bootcamp\",location: \"Yokoska, Japan\",date: \"Aug 2023\",description: \"Lecturer & Facilitator\",)\n#resume-item[\n- Had a lecutre, \"An Introduction of Docker for Social Science\"\n- Worked as a facilitator of training section\n]\n#resume-entry(title: \"Recent Development in DID Methods\",location: \"Tokyo, Japan\",date: \"May 2023\",description: \"Research Assistant\",)\n#resume-item[\n- Worked as a rearch assistant for Professor Yoshifumi Konishi\n- Wrote R codes and build a website\n]\n#resume-entry(title: \"Programming Workshops in CEMFI\",location: \"Madrid, Spain\",date: \"2021-2023\",description: \"Organizer & Lecturer\",)\n#resume-item[\n- Git & GitHub Workshop (2021, 2022)\n- R Workshop (2023)\n]\n```\n\n\n\n## Research Grant\n\n\n\n```{=typst}\n#resume-entry(title: \"María de Maeztu Exploration grant\",date: \"2024\",description: \"€4824 by CEMFI\",)\n#resume-entry(title: \"María de Maeztu Exploration grant\",date: \"2023\",description: \"€4824 by CEMFI\",)\n```\n\n\n\n\n## Scholarships\n\n\n\n```{=typst}\n#resume-entry(title: \"CEMFI Ph.D scholarship\",location: \"Madrid, Spain\",date: \"Sep 2021 - Present\",)\n#resume-entry(title: \"María de Maeztu Ph.D. track Fellowship\",location: \"Madrid, Spain\",date: \"Sep 2020 - Aug 2020\",)\n#resume-entry(title: \"CEMFI Ph.D. track full scholarship\",location: \"Madrid, Spain\",date: \"Sep 2019 - Aug 2020\",)\n```\n\n\n\n\n## Skills\n\n\n\n```{=typst}\n#resume-entry(title: \"Languages\",description: \"Japanese (Naitive), English (Fluent), Spanish (Intermediate)\",)\n#resume-entry(title: \"Programming Languages\",description: \"R, Julia, Python, Matlab, Stata\",)\n#resume-entry(title: \"Markup Languages\",description: \"LaTeX, Markdown, Rmarkdown, Quarto, HTML&CSS, Typst\",)\n```\n", - "supporting": [], - "filters": [ - "rmarkdown/pagebreak.lua" - ], - "includes": {}, - "engineDependencies": {}, - "preserve": null, - "postProcess": false - } -} \ No newline at end of file diff --git a/_freeze/cv_photo/execute-results/html.json b/_freeze/cv_photo/execute-results/html.json deleted file mode 100644 index 6e61794..0000000 --- a/_freeze/cv_photo/execute-results/html.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "hash": "e6fa33363714f28c9faa885939531be3", - "result": { - "engine": "knitr", - "markdown": "---\nauthor:\n image: assets/img/profile.jpg\n---\n---\ntitle: \"Kazuharu Yanagimoto\"\nauthor:\n firstname: Kazuharu\n lastname: Yanagimoto\n address: CEMFI, Calle Casado del Alisal 5, 28014 Madrid, Spain\n position: \"Ph.D. Candidate in Economics. Labor, Macro, and Family Economics.\"\n contacts:\n - icon: fa envelope\n text: kazuharu.yanagimoto@cemfi.edu.es\n url: \"mailto:ae@example.com\"\n - icon: assets/icon/bi-house-fill.svg\n text: kazuyanagimoto.com\n url: https://kazuyanagimoto.com\n - icon: fa brands orcid\n text: 0009-0007-1967-8304\n url: https://orcid.org/0009-0007-1967-8304\n - icon: fa brands github\n text: kazuyanagimoto\n url: https://github.com/kazuyanagimoto\n - icon: fa brands x-twitter\n text: kazuyanagimoto\n url: https://twitter.com/kazuyanagimoto\n - icon: assets/icon/fa-google-scholar.svg\n text: Kazuharu Yanagimoto\n url: https://scholar.google.com/citations?user=kypV1CYAAAAJ\n - icon: fa brands linkedin\n text: Kazuharu Yanagimoto\n url: https://www.linkedin.com/in/kazuharu-yanagimoto\n - icon: assets/icon/si-zenn.svg\n text: Kazuharu Yanagimoto\n url: https://zenn.dev/nicetak\nstyle:\n color-accent: 516db0 \nformat:\n awesomecv-typst:\n font-paths: [\"assets/fonts/\"]\n keep-typ: true\nexecute: \n echo: false\n warning: false\n---\n\n::: {.cell}\n\n```{.r .cell-code}\nlibrary(typstcv)\n```\n:::\n\n\n## Education\n\n\n```{.r .cell-code}\neduc <- read.csv(\"data/education.csv\",\n colClasses = c(\"character\", \"Date\", \"Date\", \"character\", \"character\"))\n\neduc |>\n format_date(end = \"end\", sort_by = \"start\") |>\n resume_entry(title = \"degree\",\n description = \"institution\")\n```\n\n```{=typst}\n#resume-entry(title: \"Ph.D. Candidate in Economics\",location: \"Madrid, Spain\",date: \"Sep 2021 - Present\",description: \"CEMFI\",)\n#resume-entry(title: \"Master in Economics and Finance\",location: \"Madrid, Spain\",date: \"Sep 2019 - Jun 2021\",description: \"CEMFI\",)\n#resume-entry(title: \"Bachelor in Economics\",location: \"Tokyo, Japan\",date: \"Apr 2014 - Mar 2019\",description: \"The University of Tokyo\",)\n```\n\n## Research\n\n::: {.cell}\n\n```{.r .cell-code}\nresearch <- read.csv(\"data/research.csv\")\n```\n\n::: {.cell-output .cell-output-stderr}\n\n```\nWarning in read.table(file = file, header = header, sep = sep, quote = quote, :\nincomplete final line found by readTableHeader on 'data/research.csv'\n```\n\n\n:::\n:::\n\n### Working Papers\n\n\n```{.r .cell-code}\nresearch[research$type == \"working_paper\", ] |>\n resume_entry(title = \"title\",\n description = \"coauthors\",\n date = \"date\")\n```\n\n```{=typst}\n#resume-entry(title: \"Why not Choose a Better Job? Flexibility, Social Norms, and Gender Gaps in Japan\",date: \"2024\",description: \"\",)\n#resume-entry(title: \"Flexible Analysis of Individual Heterogeneity in Event Studies\",date: \"2024\",description: \"joint with Dmitry Arkhangelsky and Tom Zohar\",)\n```\n\n### Work in Progress\n\n\n```{.r .cell-code}\nresearch[research$type == \"work_in_progress\", ] |>\n resume_entry(title = \"title\",\n description = \"coauthors\",\n date = \"date\")\n```\n\n```{=typst}\n#resume-entry(title: \"A Quantitative Model of Non/Late Marriage\",description: \"\",)\n```\n\n## Conference and Seminar Presentations\n\n\n```{.r .cell-code}\nread.csv(\"data/conference.csv\",\n colClasses = c(\"character\", \"Date\", \"Date\", \"character\", \"character\")) |>\n format_date(sort_by = \"start\") |>\n resume_entry(title = \"title\")\n```\n\n```{=typst}\n#resume-entry(title: \"Society of Economics of the Household (SEHO) meeting\",location: \"Copenhagen, Denmark\",date: \"Jun 2023\",)\n#resume-entry(title: \"47th Simposio de la Asociación Española de Economía (SAEe)\",location: \"Valencia, Spain\",date: \"Dec 2022\",)\n```\n\n## Research Experience\n\n\n```{.r .cell-code}\nread.csv(\"data/job.csv\", colClasses = c(\"character\", \"character\", \"Date\", \"Date\", \"character\")) |>\n format_date(end = \"end\", sort_by = \"start\") |>\n resume_entry(description = \"institution\")\n```\n\n```{=typst}\n#resume-entry(title: \"Research Assistant to Dr. Dmitry Arkhangelsky\",location: \"Madrid, Spain\",date: \"Sep 2023 - Present\",description: \"CEMFI\",)\n#resume-entry(title: \"Ph.D. Internship in Econ | AI Lab\",location: \"Tokyo, Japan\",date: \"Jul 2022 - Sep 2022\",description: \"CyberAgent, Inc.\",)\n#resume-entry(title: \"Research Assistant to Prof. Paula Bustos\",location: \"Madrid, Spain\",date: \"Jul 2022 - Aug 2020\",description: \"CEMFI\",)\n#resume-entry(title: \"Research Assistant to Dr. Tom Zohar\",location: \"Madrid, Spain\",date: \"Sep 2021 - Jun 2023\",description: \"CEMFI\",)\n#resume-entry(title: \"Research Assistant in Survey Research Center\",location: \"Tokyo, Japan\",date: \"Jan 2019 - Jul 2019\",description: \"Recruit Works Institute\",)\n#resume-entry(title: \"Research Assistant to Prof. Hidehiko Ichimura\",location: \"Tokyo, Japan\",date: \"Sep 2016 - Jun 2019\",description: \"The University of Tokyo\",)\n```\n\n## Teaching Experience\n\n\n```{.r .cell-code}\nread.csv(\"data/teaching.csv\",\n colClasses = c(\"character\", \"character\", \"Date\", \"Date\", \"character\")) |>\n format_date(end = \"end\", sort_by = \"start\") |>\n resume_entry(description = \"institution\")\n```\n\n```{=typst}\n#resume-entry(title: \"Teaching Assistant in Time-series Econometrics\",location: \"Madrid, Spain\",date: \"Jan 2024 - Mar 2024\",description: \"CEMFI\",)\n#resume-entry(title: \"Teaching Assistant in International Economics\",location: \"Madrid, Spain\",date: \"Jan 2023 - Mar 2024\",description: \"CEMFI\",)\n#resume-entry(title: \"Teaching Assistant in Mathematics\",location: \"Madrid, Spain\",date: \"Sep 2021 - Dec 2021\",description: \"CEMFI\",)\n```\n\n## Other Experience\n\n\n```{.r .cell-code}\nread.csv(\"data/other.csv\") |>\n resume_entry(details = c(\"detail1\", \"detail2\"))\n```\n\n```{=typst}\n#resume-entry(title: \"RA Bootcamp\",location: \"Yokoska, Japan\",date: \"Aug 2023\",description: \"Lecturer & Facilitator\",)\n#resume-item[\n- Had a lecutre, \"An Introduction of Docker for Social Science\"\n- Worked as a facilitator of training section\n]\n#resume-entry(title: \"Recent Development in DID Methods\",location: \"Tokyo, Japan\",date: \"May 2023\",description: \"Research Assistant\",)\n#resume-item[\n- Worked as a rearch assistant for Professor Yoshifumi Konishi\n- Wrote R codes and build a website\n]\n#resume-entry(title: \"Programming Workshops in CEMFI\",location: \"Madrid, Spain\",date: \"2021-2023\",description: \"Organizer & Lecturer\",)\n#resume-item[\n- Git & GitHub Workshop (2021, 2022)\n- R Workshop (2023)\n]\n```\n\n## Research Grant\n\n\n```{.r .cell-code}\nread.csv(\"data/grant.csv\",\n colClasses = c(\"character\", \"character\", \"Date\")) |>\n format_date(start = \"year\", date_format = \"%Y\", sort_by = \"start\") |>\n resume_entry(description = \"amount\")\n```\n\n```{=typst}\n#resume-entry(title: \"María de Maeztu Exploration grant\",date: \"2024\",description: \"€4824 by CEMFI\",)\n#resume-entry(title: \"María de Maeztu Exploration grant\",date: \"2023\",description: \"€4824 by CEMFI\",)\n```\n\n\n## Scholarships\n\n\n```{.r .cell-code}\nread.csv(\"data/scholarship.csv\",\n colClasses = c(\"character\", \"Date\", \"Date\", \"character\", \"character\")) |>\n format_date(end = \"end\", sort_by = \"start\") |>\n resume_entry()\n```\n\n```\nWarning in read.table(file = file, header = header, sep = sep, quote = quote, :\nincomplete final line found by readTableHeader on 'data/scholarship.csv'\n```\n\n```{=typst}\n#resume-entry(title: \"CEMFI Ph.D scholarship\",location: \"Madrid, Spain\",date: \"Sep 2021 - Present\",)\n#resume-entry(title: \"María de Maeztu Ph.D. track Fellowship\",location: \"Madrid, Spain\",date: \"Sep 2020 - Aug 2020\",)\n#resume-entry(title: \"CEMFI Ph.D. track full scholarship\",location: \"Madrid, Spain\",date: \"Sep 2019 - Aug 2020\",)\n```\n\n\n## Skills\n\n\n```{.r .cell-code}\nread.csv(\"data/skill.csv\") |>\n resume_entry(title = \"area\",\n description = \"skills\")\n```\n\n```{=typst}\n#resume-entry(title: \"Languages\",description: \"Japanese (Naitive), English (Fluent), Spanish (Intermediate)\",)\n#resume-entry(title: \"Programming Languages\",description: \"R, Julia, Python, Matlab, Stata\",)\n#resume-entry(title: \"Markup Languages\",description: \"LaTeX, Markdown, Rmarkdown, Quarto, HTML&CSS, Typst\",)\n```\n\n", - "supporting": [], - "filters": [ - "rmarkdown/pagebreak.lua" - ], - "includes": {}, - "engineDependencies": {}, - "preserve": {}, - "postProcess": true - } -} \ No newline at end of file diff --git a/_freeze/cv_photo/execute-results/typ.json b/_freeze/cv_photo/execute-results/typ.json deleted file mode 100644 index 89ed521..0000000 --- a/_freeze/cv_photo/execute-results/typ.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "hash": "af9d44a2eb5e98713f0393df440bce03", - "result": { - "engine": "knitr", - "markdown": "---\ntitle: \"Kazuharu Yanagimoto\"\nauthor:\n firstname: Kazuharu\n lastname: Yanagimoto\n address: CEMFI, Calle Casado del Alisal 5, 28014 Madrid, Spain\n position: \"Ph.D. Candidate in Economics. Labor, Macro, and Family Economics.\"\n image: assets/img/profile.jpg\n contacts:\n - icon: fa envelope\n text: kazuharu.yanagimoto@cemfi.edu.es\n url: \"mailto:ae@example.com\"\n - icon: assets/icon/bi-house-fill.svg\n text: kazuyanagimoto.com\n url: https://kazuyanagimoto.com\n - icon: fa brands orcid\n text: 0009-0007-1967-8304\n url: https://orcid.org/0009-0007-1967-8304\n - icon: fa brands github\n text: kazuyanagimoto\n url: https://github.com/kazuyanagimoto\n - icon: fa brands x-twitter\n text: kazuyanagimoto\n url: https://twitter.com/kazuyanagimoto\n - icon: assets/icon/fa-google-scholar.svg\n text: Kazuharu Yanagimoto\n url: https://scholar.google.com/citations?user=kypV1CYAAAAJ\n - icon: fa brands linkedin\n text: Kazuharu Yanagimoto\n url: https://www.linkedin.com/in/kazuharu-yanagimoto\n - icon: assets/icon/si-zenn.svg\n text: Kazuharu Yanagimoto\n url: https://zenn.dev/nicetak\nstyle:\n color-accent: 516db0 \nformat:\n awesomecv-typst:\n font-paths: [\"assets/fonts/\"]\n keep-typ: true\nexecute: \n echo: false\n warning: false\n---\n---\ntitle: \"Kazuharu Yanagimoto\"\nauthor:\n firstname: Kazuharu\n lastname: Yanagimoto\n address: CEMFI, Calle Casado del Alisal 5, 28014 Madrid, Spain\n position: \"Ph.D. Candidate in Economics. Labor, Macro, and Family Economics.\"\n contacts:\n - icon: fa envelope\n text: kazuharu.yanagimoto@cemfi.edu.es\n url: \"mailto:ae@example.com\"\n - icon: assets/icon/bi-house-fill.svg\n text: kazuyanagimoto.com\n url: https://kazuyanagimoto.com\n - icon: fa brands orcid\n text: 0009-0007-1967-8304\n url: https://orcid.org/0009-0007-1967-8304\n - icon: fa brands github\n text: kazuyanagimoto\n url: https://github.com/kazuyanagimoto\n - icon: fa brands x-twitter\n text: kazuyanagimoto\n url: https://twitter.com/kazuyanagimoto\n - icon: assets/icon/fa-google-scholar.svg\n text: Kazuharu Yanagimoto\n url: https://scholar.google.com/citations?user=kypV1CYAAAAJ\n - icon: fa brands linkedin\n text: Kazuharu Yanagimoto\n url: https://www.linkedin.com/in/kazuharu-yanagimoto\n - icon: assets/icon/si-zenn.svg\n text: Kazuharu Yanagimoto\n url: https://zenn.dev/nicetak\nstyle:\n color-accent: 516db0 \nformat:\n awesomecv-typst:\n font-paths: [\"assets/fonts/\"]\n keep-typ: true\nexecute: \n echo: false\n warning: false\n---\n\n::: {.cell}\n\n:::\n\n\n## Education\n\n```{=typst}\n#resume-entry(title: \"Ph.D. Candidate in Economics\",location: \"Madrid, Spain\",date: \"Sep 2021 - Present\",description: \"CEMFI\",)\n#resume-entry(title: \"Master in Economics and Finance\",location: \"Madrid, Spain\",date: \"Sep 2019 - Jun 2021\",description: \"CEMFI\",)\n#resume-entry(title: \"Bachelor in Economics\",location: \"Tokyo, Japan\",date: \"Apr 2014 - Mar 2019\",description: \"The University of Tokyo\",)\n```\n\n## Research\n\n::: {.cell}\n\n:::\n\n### Working Papers\n\n```{=typst}\n#resume-entry(title: \"Why not Choose a Better Job? Flexibility, Social Norms, and Gender Gaps in Japan\",date: \"2024\",description: \"\",)\n#resume-entry(title: \"Flexible Analysis of Individual Heterogeneity in Event Studies\",date: \"2024\",description: \"joint with Dmitry Arkhangelsky and Tom Zohar\",)\n```\n\n### Work in Progress\n\n```{=typst}\n#resume-entry(title: \"A Quantitative Model of Non/Late Marriage\",description: \"\",)\n```\n\n## Conference and Seminar Presentations\n\n```{=typst}\n#resume-entry(title: \"Society of Economics of the Household (SEHO) meeting\",location: \"Copenhagen, Denmark\",date: \"Jun 2023\",)\n#resume-entry(title: \"47th Simposio de la Asociación Española de Economía (SAEe)\",location: \"Valencia, Spain\",date: \"Dec 2022\",)\n```\n\n## Research Experience\n\n```{=typst}\n#resume-entry(title: \"Research Assistant to Dr. Dmitry Arkhangelsky\",location: \"Madrid, Spain\",date: \"Sep 2023 - Present\",description: \"CEMFI\",)\n#resume-entry(title: \"Ph.D. Internship in Econ | AI Lab\",location: \"Tokyo, Japan\",date: \"Jul 2022 - Sep 2022\",description: \"CyberAgent, Inc.\",)\n#resume-entry(title: \"Research Assistant to Prof. Paula Bustos\",location: \"Madrid, Spain\",date: \"Jul 2022 - Aug 2020\",description: \"CEMFI\",)\n#resume-entry(title: \"Research Assistant to Dr. Tom Zohar\",location: \"Madrid, Spain\",date: \"Sep 2021 - Jun 2023\",description: \"CEMFI\",)\n#resume-entry(title: \"Research Assistant in Survey Research Center\",location: \"Tokyo, Japan\",date: \"Jan 2019 - Jul 2019\",description: \"Recruit Works Institute\",)\n#resume-entry(title: \"Research Assistant to Prof. Hidehiko Ichimura\",location: \"Tokyo, Japan\",date: \"Sep 2016 - Jun 2019\",description: \"The University of Tokyo\",)\n```\n\n## Teaching Experience\n\n```{=typst}\n#resume-entry(title: \"Teaching Assistant in Time-series Econometrics\",location: \"Madrid, Spain\",date: \"Jan 2024 - Mar 2024\",description: \"CEMFI\",)\n#resume-entry(title: \"Teaching Assistant in International Economics\",location: \"Madrid, Spain\",date: \"Jan 2023 - Mar 2024\",description: \"CEMFI\",)\n#resume-entry(title: \"Teaching Assistant in Mathematics\",location: \"Madrid, Spain\",date: \"Sep 2021 - Dec 2021\",description: \"CEMFI\",)\n```\n\n## Other Experience\n\n```{=typst}\n#resume-entry(title: \"RA Bootcamp\",location: \"Yokoska, Japan\",date: \"Aug 2023\",description: \"Lecturer & Facilitator\",)\n#resume-item[\n- Had a lecutre, \"An Introduction of Docker for Social Science\"\n- Worked as a facilitator of training section\n]\n#resume-entry(title: \"Recent Development in DID Methods\",location: \"Tokyo, Japan\",date: \"May 2023\",description: \"Research Assistant\",)\n#resume-item[\n- Worked as a rearch assistant for Professor Yoshifumi Konishi\n- Wrote R codes and build a website\n]\n#resume-entry(title: \"Programming Workshops in CEMFI\",location: \"Madrid, Spain\",date: \"2021-2023\",description: \"Organizer & Lecturer\",)\n#resume-item[\n- Git & GitHub Workshop (2021, 2022)\n- R Workshop (2023)\n]\n```\n\n## Research Grant\n\n```{=typst}\n#resume-entry(title: \"María de Maeztu Exploration grant\",date: \"2024\",description: \"€4824 by CEMFI\",)\n#resume-entry(title: \"María de Maeztu Exploration grant\",date: \"2023\",description: \"€4824 by CEMFI\",)\n```\n\n\n## Scholarships\n\n```{=typst}\n#resume-entry(title: \"CEMFI Ph.D scholarship\",location: \"Madrid, Spain\",date: \"Sep 2021 - Present\",)\n#resume-entry(title: \"María de Maeztu Ph.D. track Fellowship\",location: \"Madrid, Spain\",date: \"Sep 2020 - Aug 2020\",)\n#resume-entry(title: \"CEMFI Ph.D. track full scholarship\",location: \"Madrid, Spain\",date: \"Sep 2019 - Aug 2020\",)\n```\n\n\n## Skills\n\n```{=typst}\n#resume-entry(title: \"Languages\",description: \"Japanese (Naitive), English (Fluent), Spanish (Intermediate)\",)\n#resume-entry(title: \"Programming Languages\",description: \"R, Julia, Python, Matlab, Stata\",)\n#resume-entry(title: \"Markup Languages\",description: \"LaTeX, Markdown, Rmarkdown, Quarto, HTML&CSS, Typst\",)\n```\n\n", - "supporting": [], - "filters": [ - "rmarkdown/pagebreak.lua" - ], - "includes": {}, - "engineDependencies": {}, - "preserve": null, - "postProcess": false - } -} \ No newline at end of file diff --git a/_quarto.yml b/_quarto.yml index abbc1f6..7f0c914 100644 --- a/_quarto.yml +++ b/_quarto.yml @@ -1,6 +1,3 @@ project: type: default - output-dir: docs - -execute: - freeze: auto \ No newline at end of file + output-dir: docs \ No newline at end of file diff --git a/assets/icon/si-bluesky.svg b/assets/icon/si-bluesky.svg new file mode 100644 index 0000000..ce0126e --- /dev/null +++ b/assets/icon/si-bluesky.svg @@ -0,0 +1 @@ +Bluesky \ No newline at end of file diff --git a/cv.qmd b/cv.qmd index f89f363..d222d12 100644 --- a/cv.qmd +++ b/cv.qmd @@ -24,6 +24,9 @@ author: - icon: assets/icon/fa-google-scholar.svg text: Kazuharu Yanagimoto url: https://scholar.google.com/citations?user=kypV1CYAAAAJ + - icon: assets/icon/si-bluesky.svg + text: kazuyanagimoto + url: https://bsky.app/profile/kazuyanagimoto.bsky.social - icon: fa brands linkedin text: Kazuharu Yanagimoto url: https://www.linkedin.com/in/kazuharu-yanagimoto @@ -86,7 +89,7 @@ research[research$type == "work_in_progress", ] |> date = "date") ``` -## Conference and Seminar Presentations +## Conference Presentations ```{r} #| output: asis diff --git a/data/conference.csv b/data/conference.csv index 5946345..aaeb061 100644 --- a/data/conference.csv +++ b/data/conference.csv @@ -1,3 +1,4 @@ title,start,end,location,detail 47th Simposio de la Asociación Española de Economía (SAEe),2022-12-15,2022-12-17,"Valencia, Spain", Society of Economics of the Household (SEHO) meeting,2023-06-06,2023-06-08,"Copenhagen, Denmark", +76th European Meeting of the Econometric Society (ESEM),2024-08-26,2024-08-30,"Rotterdam, Netherlands", \ No newline at end of file diff --git a/data/other.csv b/data/other.csv index 15db8b9..ef2fbd9 100644 --- a/data/other.csv +++ b/data/other.csv @@ -1,4 +1,4 @@ title,description,date,location,detail1,detail2 -RA Bootcamp,Lecturer & Facilitator,Aug 2023,"Yokoska, Japan","Had a lecutre, ""An Introduction of Docker for Social Science""",Worked as a facilitator of training section -Recent Development in DID Methods,Research Assistant,May 2023,"Tokyo, Japan",Worked as a rearch assistant for Professor Yoshifumi Konishi,Wrote R codes and build a website +RA Bootcamp,Lecturer & Facilitator,Aug 2023,"Yokoska, Japan"," Taught a lecture, ""An Introduction to Docker for Social Science""",Worked as a facilitator of training session +Recent Development in DID Methods,Research Assistant,May 2023,"Tokyo, Japan",Worked as a research assistant for Professor Yoshifumi Konishi,Wrote R codes and build a website Programming Workshops in CEMFI,Organizer & Lecturer,2021-2023,"Madrid, Spain","Git & GitHub Workshop (2021, 2022)",R Workshop (2023) diff --git a/data/research.csv b/data/research.csv index c84eb88..f0e54d3 100644 --- a/data/research.csv +++ b/data/research.csv @@ -1,6 +1,6 @@ type,title,coauthors,date,detail -working_paper,"Why not Choose a Better Job? Flexibility, Social Norms, and Gender Gaps in Japan",,2024, +working_paper,A Quantitative Model of Non-Marriage: Bargaining over Leisure,,2024, working_paper,Flexible Analysis of Individual Heterogeneity in Event Studies,joint with Dmitry Arkhangelsky and Tom Zohar,2024, -work_in_progress,A Quantitative Model of Non/Late Marriage,,, +working_paper,"Why not Choose a Better Job? Flexibility, Social Norms, and Gender Gaps in Japan",,2024, work_in_progress,How can food programs support social distancing during a pandemic? Evidence from the Bayan Bayanihan Program in the Philippines during COVID-19,"joint with Christopher James Cabuay, Yasuyuki Sawada, Elaine Tan, Arturo Martinez,Jr., Daniel Boller, Joseph Albert, Nino Bulan, Ron Lester Durante, and Soyoka Okumura",, \ No newline at end of file diff --git a/renv.lock b/renv.lock deleted file mode 100644 index 6e4c534..0000000 --- a/renv.lock +++ /dev/null @@ -1,422 +0,0 @@ -{ - "R": { - "Version": "4.4.0", - "Repositories": [ - { - "Name": "CRAN", - "URL": "https://cloud.r-project.org" - } - ] - }, - "Packages": { - "R6": { - "Package": "R6", - "Version": "2.5.1", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "R" - ], - "Hash": "470851b6d5d0ac559e9d01bb352b4021" - }, - "Rcpp": { - "Package": "Rcpp", - "Version": "1.0.12", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "methods", - "utils" - ], - "Hash": "5ea2700d21e038ace58269ecdbeb9ec0" - }, - "base64enc": { - "Package": "base64enc", - "Version": "0.1-3", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "R" - ], - "Hash": "543776ae6848fde2f48ff3816d0628bc" - }, - "bslib": { - "Package": "bslib", - "Version": "0.7.0", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "R", - "base64enc", - "cachem", - "fastmap", - "grDevices", - "htmltools", - "jquerylib", - "jsonlite", - "lifecycle", - "memoise", - "mime", - "rlang", - "sass" - ], - "Hash": "8644cc53f43828f19133548195d7e59e" - }, - "cachem": { - "Package": "cachem", - "Version": "1.1.0", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "fastmap", - "rlang" - ], - "Hash": "cd9a672193789068eb5a2aad65a0dedf" - }, - "cli": { - "Package": "cli", - "Version": "3.6.2", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "R", - "utils" - ], - "Hash": "1216ac65ac55ec0058a6f75d7ca0fd52" - }, - "digest": { - "Package": "digest", - "Version": "0.6.35", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "R", - "utils" - ], - "Hash": "698ece7ba5a4fa4559e3d537e7ec3d31" - }, - "evaluate": { - "Package": "evaluate", - "Version": "0.23", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "R", - "methods" - ], - "Hash": "daf4a1246be12c1fa8c7705a0935c1a0" - }, - "fastmap": { - "Package": "fastmap", - "Version": "1.2.0", - "Source": "Repository", - "Repository": "CRAN", - "Hash": "aa5e1cd11c2d15497494c5292d7ffcc8" - }, - "fontawesome": { - "Package": "fontawesome", - "Version": "0.5.2", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "R", - "htmltools", - "rlang" - ], - "Hash": "c2efdd5f0bcd1ea861c2d4e2a883a67d" - }, - "fs": { - "Package": "fs", - "Version": "1.6.4", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "R", - "methods" - ], - "Hash": "15aeb8c27f5ea5161f9f6a641fafd93a" - }, - "glue": { - "Package": "glue", - "Version": "1.7.0", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "R", - "methods" - ], - "Hash": "e0b3a53876554bd45879e596cdb10a52" - }, - "highr": { - "Package": "highr", - "Version": "0.10", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "R", - "xfun" - ], - "Hash": "06230136b2d2b9ba5805e1963fa6e890" - }, - "htmltools": { - "Package": "htmltools", - "Version": "0.5.8.1", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "R", - "base64enc", - "digest", - "fastmap", - "grDevices", - "rlang", - "utils" - ], - "Hash": "81d371a9cc60640e74e4ab6ac46dcedc" - }, - "jquerylib": { - "Package": "jquerylib", - "Version": "0.1.4", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "htmltools" - ], - "Hash": "5aab57a3bd297eee1c1d862735972182" - }, - "jsonlite": { - "Package": "jsonlite", - "Version": "1.8.8", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "methods" - ], - "Hash": "e1b9c55281c5adc4dd113652d9e26768" - }, - "knitr": { - "Package": "knitr", - "Version": "1.46", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "R", - "evaluate", - "highr", - "methods", - "tools", - "xfun", - "yaml" - ], - "Hash": "6e008ab1d696a5283c79765fa7b56b47" - }, - "later": { - "Package": "later", - "Version": "1.3.2", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "Rcpp", - "rlang" - ], - "Hash": "a3e051d405326b8b0012377434c62b37" - }, - "lifecycle": { - "Package": "lifecycle", - "Version": "1.0.4", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "R", - "cli", - "glue", - "rlang" - ], - "Hash": "b8552d117e1b808b09a832f589b79035" - }, - "memoise": { - "Package": "memoise", - "Version": "2.0.1", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "cachem", - "rlang" - ], - "Hash": "e2817ccf4a065c5d9d7f2cfbe7c1d78c" - }, - "mime": { - "Package": "mime", - "Version": "0.12", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "tools" - ], - "Hash": "18e9c28c1d3ca1560ce30658b22ce104" - }, - "processx": { - "Package": "processx", - "Version": "3.8.4", - "Source": "Repository", - "Repository": "RSPM", - "Requirements": [ - "R", - "R6", - "ps", - "utils" - ], - "Hash": "0c90a7d71988856bad2a2a45dd871bb9" - }, - "ps": { - "Package": "ps", - "Version": "1.7.6", - "Source": "Repository", - "Repository": "RSPM", - "Requirements": [ - "R", - "utils" - ], - "Hash": "dd2b9319ee0656c8acf45c7f40c59de7" - }, - "quarto": { - "Package": "quarto", - "Version": "1.4", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "R", - "cli", - "jsonlite", - "later", - "processx", - "rlang", - "rmarkdown", - "rstudioapi", - "tools", - "utils", - "yaml" - ], - "Hash": "c94c271f9b998d116186a78b2a9b23c1" - }, - "rappdirs": { - "Package": "rappdirs", - "Version": "0.3.3", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "R" - ], - "Hash": "5e3c5dc0b071b21fa128676560dbe94d" - }, - "renv": { - "Package": "renv", - "Version": "1.0.7", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "utils" - ], - "Hash": "397b7b2a265bc5a7a06852524dabae20" - }, - "rlang": { - "Package": "rlang", - "Version": "1.1.3", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "R", - "utils" - ], - "Hash": "42548638fae05fd9a9b5f3f437fbbbe2" - }, - "rmarkdown": { - "Package": "rmarkdown", - "Version": "2.27", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "R", - "bslib", - "evaluate", - "fontawesome", - "htmltools", - "jquerylib", - "jsonlite", - "knitr", - "methods", - "tinytex", - "tools", - "utils", - "xfun", - "yaml" - ], - "Hash": "27f9502e1cdbfa195f94e03b0f517484" - }, - "rstudioapi": { - "Package": "rstudioapi", - "Version": "0.16.0", - "Source": "Repository", - "Repository": "RSPM", - "Hash": "96710351d642b70e8f02ddeb237c46a7" - }, - "sass": { - "Package": "sass", - "Version": "0.4.9", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "R6", - "fs", - "htmltools", - "rappdirs", - "rlang" - ], - "Hash": "d53dbfddf695303ea4ad66f86e99b95d" - }, - "tinytex": { - "Package": "tinytex", - "Version": "0.51", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "xfun" - ], - "Hash": "d44e2fcd2e4e076f0aac540208559d1d" - }, - "typstcv": { - "Package": "typstcv", - "Version": "0.0.2", - "Source": "GitHub", - "RemoteType": "github", - "RemoteHost": "api.github.com", - "RemoteRepo": "typstcv", - "RemoteUsername": "kazuyanagimoto", - "RemoteRef": "HEAD", - "RemoteSha": "054752f81634d23e9146d7632e66303a49021e67", - "Requirements": [ - "R" - ], - "Hash": "11206b0d3ac25d67cd0ff84f8f1a7ff0" - }, - "xfun": { - "Package": "xfun", - "Version": "0.44", - "Source": "Repository", - "Repository": "CRAN", - "Requirements": [ - "grDevices", - "stats", - "tools" - ], - "Hash": "317a0538d32f4a009658bcedb7923f4b" - }, - "yaml": { - "Package": "yaml", - "Version": "2.3.8", - "Source": "Repository", - "Repository": "CRAN", - "Hash": "29240487a071f535f5e5d5a323b7afbd" - } - } -} diff --git a/renv/.gitignore b/renv/.gitignore deleted file mode 100644 index 0ec0cbb..0000000 --- a/renv/.gitignore +++ /dev/null @@ -1,7 +0,0 @@ -library/ -local/ -cellar/ -lock/ -python/ -sandbox/ -staging/ diff --git a/renv/activate.R b/renv/activate.R deleted file mode 100644 index d13f993..0000000 --- a/renv/activate.R +++ /dev/null @@ -1,1220 +0,0 @@ - -local({ - - # the requested version of renv - version <- "1.0.7" - attr(version, "sha") <- NULL - - # the project directory - project <- Sys.getenv("RENV_PROJECT") - if (!nzchar(project)) - project <- getwd() - - # use start-up diagnostics if enabled - diagnostics <- Sys.getenv("RENV_STARTUP_DIAGNOSTICS", unset = "FALSE") - if (diagnostics) { - start <- Sys.time() - profile <- tempfile("renv-startup-", fileext = ".Rprof") - utils::Rprof(profile) - on.exit({ - utils::Rprof(NULL) - elapsed <- signif(difftime(Sys.time(), start, units = "auto"), digits = 2L) - writeLines(sprintf("- renv took %s to run the autoloader.", format(elapsed))) - writeLines(sprintf("- Profile: %s", profile)) - print(utils::summaryRprof(profile)) - }, add = TRUE) - } - - # figure out whether the autoloader is enabled - enabled <- local({ - - # first, check config option - override <- getOption("renv.config.autoloader.enabled") - if (!is.null(override)) - return(override) - - # if we're being run in a context where R_LIBS is already set, - # don't load -- presumably we're being run as a sub-process and - # the parent process has already set up library paths for us - rcmd <- Sys.getenv("R_CMD", unset = NA) - rlibs <- Sys.getenv("R_LIBS", unset = NA) - if (!is.na(rlibs) && !is.na(rcmd)) - return(FALSE) - - # next, check environment variables - # TODO: prefer using the configuration one in the future - envvars <- c( - "RENV_CONFIG_AUTOLOADER_ENABLED", - "RENV_AUTOLOADER_ENABLED", - "RENV_ACTIVATE_PROJECT" - ) - - for (envvar in envvars) { - envval <- Sys.getenv(envvar, unset = NA) - if (!is.na(envval)) - return(tolower(envval) %in% c("true", "t", "1")) - } - - # enable by default - TRUE - - }) - - # bail if we're not enabled - if (!enabled) { - - # if we're not enabled, we might still need to manually load - # the user profile here - profile <- Sys.getenv("R_PROFILE_USER", unset = "~/.Rprofile") - if (file.exists(profile)) { - cfg <- Sys.getenv("RENV_CONFIG_USER_PROFILE", unset = "TRUE") - if (tolower(cfg) %in% c("true", "t", "1")) - sys.source(profile, envir = globalenv()) - } - - return(FALSE) - - } - - # avoid recursion - if (identical(getOption("renv.autoloader.running"), TRUE)) { - warning("ignoring recursive attempt to run renv autoloader") - return(invisible(TRUE)) - } - - # signal that we're loading renv during R startup - options(renv.autoloader.running = TRUE) - on.exit(options(renv.autoloader.running = NULL), add = TRUE) - - # signal that we've consented to use renv - options(renv.consent = TRUE) - - # load the 'utils' package eagerly -- this ensures that renv shims, which - # mask 'utils' packages, will come first on the search path - library(utils, lib.loc = .Library) - - # unload renv if it's already been loaded - if ("renv" %in% loadedNamespaces()) - unloadNamespace("renv") - - # load bootstrap tools - `%||%` <- function(x, y) { - if (is.null(x)) y else x - } - - catf <- function(fmt, ..., appendLF = TRUE) { - - quiet <- getOption("renv.bootstrap.quiet", default = FALSE) - if (quiet) - return(invisible()) - - msg <- sprintf(fmt, ...) - cat(msg, file = stdout(), sep = if (appendLF) "\n" else "") - - invisible(msg) - - } - - header <- function(label, - ..., - prefix = "#", - suffix = "-", - n = min(getOption("width"), 78)) - { - label <- sprintf(label, ...) - n <- max(n - nchar(label) - nchar(prefix) - 2L, 8L) - if (n <= 0) - return(paste(prefix, label)) - - tail <- paste(rep.int(suffix, n), collapse = "") - paste0(prefix, " ", label, " ", tail) - - } - - heredoc <- function(text, leave = 0) { - - # remove leading, trailing whitespace - trimmed <- gsub("^\\s*\\n|\\n\\s*$", "", text) - - # split into lines - lines <- strsplit(trimmed, "\n", fixed = TRUE)[[1L]] - - # compute common indent - indent <- regexpr("[^[:space:]]", lines) - common <- min(setdiff(indent, -1L)) - leave - paste(substring(lines, common), collapse = "\n") - - } - - startswith <- function(string, prefix) { - substring(string, 1, nchar(prefix)) == prefix - } - - bootstrap <- function(version, library) { - - friendly <- renv_bootstrap_version_friendly(version) - section <- header(sprintf("Bootstrapping renv %s", friendly)) - catf(section) - - # attempt to download renv - catf("- Downloading renv ... ", appendLF = FALSE) - withCallingHandlers( - tarball <- renv_bootstrap_download(version), - error = function(err) { - catf("FAILED") - stop("failed to download:\n", conditionMessage(err)) - } - ) - catf("OK") - on.exit(unlink(tarball), add = TRUE) - - # now attempt to install - catf("- Installing renv ... ", appendLF = FALSE) - withCallingHandlers( - status <- renv_bootstrap_install(version, tarball, library), - error = function(err) { - catf("FAILED") - stop("failed to install:\n", conditionMessage(err)) - } - ) - catf("OK") - - # add empty line to break up bootstrapping from normal output - catf("") - - return(invisible()) - } - - renv_bootstrap_tests_running <- function() { - getOption("renv.tests.running", default = FALSE) - } - - renv_bootstrap_repos <- function() { - - # get CRAN repository - cran <- getOption("renv.repos.cran", "https://cloud.r-project.org") - - # check for repos override - repos <- Sys.getenv("RENV_CONFIG_REPOS_OVERRIDE", unset = NA) - if (!is.na(repos)) { - - # check for RSPM; if set, use a fallback repository for renv - rspm <- Sys.getenv("RSPM", unset = NA) - if (identical(rspm, repos)) - repos <- c(RSPM = rspm, CRAN = cran) - - return(repos) - - } - - # check for lockfile repositories - repos <- tryCatch(renv_bootstrap_repos_lockfile(), error = identity) - if (!inherits(repos, "error") && length(repos)) - return(repos) - - # retrieve current repos - repos <- getOption("repos") - - # ensure @CRAN@ entries are resolved - repos[repos == "@CRAN@"] <- cran - - # add in renv.bootstrap.repos if set - default <- c(FALLBACK = "https://cloud.r-project.org") - extra <- getOption("renv.bootstrap.repos", default = default) - repos <- c(repos, extra) - - # remove duplicates that might've snuck in - dupes <- duplicated(repos) | duplicated(names(repos)) - repos[!dupes] - - } - - renv_bootstrap_repos_lockfile <- function() { - - lockpath <- Sys.getenv("RENV_PATHS_LOCKFILE", unset = "renv.lock") - if (!file.exists(lockpath)) - return(NULL) - - lockfile <- tryCatch(renv_json_read(lockpath), error = identity) - if (inherits(lockfile, "error")) { - warning(lockfile) - return(NULL) - } - - repos <- lockfile$R$Repositories - if (length(repos) == 0) - return(NULL) - - keys <- vapply(repos, `[[`, "Name", FUN.VALUE = character(1)) - vals <- vapply(repos, `[[`, "URL", FUN.VALUE = character(1)) - names(vals) <- keys - - return(vals) - - } - - renv_bootstrap_download <- function(version) { - - sha <- attr(version, "sha", exact = TRUE) - - methods <- if (!is.null(sha)) { - - # attempting to bootstrap a development version of renv - c( - function() renv_bootstrap_download_tarball(sha), - function() renv_bootstrap_download_github(sha) - ) - - } else { - - # attempting to bootstrap a release version of renv - c( - function() renv_bootstrap_download_tarball(version), - function() renv_bootstrap_download_cran_latest(version), - function() renv_bootstrap_download_cran_archive(version) - ) - - } - - for (method in methods) { - path <- tryCatch(method(), error = identity) - if (is.character(path) && file.exists(path)) - return(path) - } - - stop("All download methods failed") - - } - - renv_bootstrap_download_impl <- function(url, destfile) { - - mode <- "wb" - - # https://bugs.r-project.org/bugzilla/show_bug.cgi?id=17715 - fixup <- - Sys.info()[["sysname"]] == "Windows" && - substring(url, 1L, 5L) == "file:" - - if (fixup) - mode <- "w+b" - - args <- list( - url = url, - destfile = destfile, - mode = mode, - quiet = TRUE - ) - - if ("headers" %in% names(formals(utils::download.file))) - args$headers <- renv_bootstrap_download_custom_headers(url) - - do.call(utils::download.file, args) - - } - - renv_bootstrap_download_custom_headers <- function(url) { - - headers <- getOption("renv.download.headers") - if (is.null(headers)) - return(character()) - - if (!is.function(headers)) - stopf("'renv.download.headers' is not a function") - - headers <- headers(url) - if (length(headers) == 0L) - return(character()) - - if (is.list(headers)) - headers <- unlist(headers, recursive = FALSE, use.names = TRUE) - - ok <- - is.character(headers) && - is.character(names(headers)) && - all(nzchar(names(headers))) - - if (!ok) - stop("invocation of 'renv.download.headers' did not return a named character vector") - - headers - - } - - renv_bootstrap_download_cran_latest <- function(version) { - - spec <- renv_bootstrap_download_cran_latest_find(version) - type <- spec$type - repos <- spec$repos - - baseurl <- utils::contrib.url(repos = repos, type = type) - ext <- if (identical(type, "source")) - ".tar.gz" - else if (Sys.info()[["sysname"]] == "Windows") - ".zip" - else - ".tgz" - name <- sprintf("renv_%s%s", version, ext) - url <- paste(baseurl, name, sep = "/") - - destfile <- file.path(tempdir(), name) - status <- tryCatch( - renv_bootstrap_download_impl(url, destfile), - condition = identity - ) - - if (inherits(status, "condition")) - return(FALSE) - - # report success and return - destfile - - } - - renv_bootstrap_download_cran_latest_find <- function(version) { - - # check whether binaries are supported on this system - binary <- - getOption("renv.bootstrap.binary", default = TRUE) && - !identical(.Platform$pkgType, "source") && - !identical(getOption("pkgType"), "source") && - Sys.info()[["sysname"]] %in% c("Darwin", "Windows") - - types <- c(if (binary) "binary", "source") - - # iterate over types + repositories - for (type in types) { - for (repos in renv_bootstrap_repos()) { - - # retrieve package database - db <- tryCatch( - as.data.frame( - utils::available.packages(type = type, repos = repos), - stringsAsFactors = FALSE - ), - error = identity - ) - - if (inherits(db, "error")) - next - - # check for compatible entry - entry <- db[db$Package %in% "renv" & db$Version %in% version, ] - if (nrow(entry) == 0) - next - - # found it; return spec to caller - spec <- list(entry = entry, type = type, repos = repos) - return(spec) - - } - } - - # if we got here, we failed to find renv - fmt <- "renv %s is not available from your declared package repositories" - stop(sprintf(fmt, version)) - - } - - renv_bootstrap_download_cran_archive <- function(version) { - - name <- sprintf("renv_%s.tar.gz", version) - repos <- renv_bootstrap_repos() - urls <- file.path(repos, "src/contrib/Archive/renv", name) - destfile <- file.path(tempdir(), name) - - for (url in urls) { - - status <- tryCatch( - renv_bootstrap_download_impl(url, destfile), - condition = identity - ) - - if (identical(status, 0L)) - return(destfile) - - } - - return(FALSE) - - } - - renv_bootstrap_download_tarball <- function(version) { - - # if the user has provided the path to a tarball via - # an environment variable, then use it - tarball <- Sys.getenv("RENV_BOOTSTRAP_TARBALL", unset = NA) - if (is.na(tarball)) - return() - - # allow directories - if (dir.exists(tarball)) { - name <- sprintf("renv_%s.tar.gz", version) - tarball <- file.path(tarball, name) - } - - # bail if it doesn't exist - if (!file.exists(tarball)) { - - # let the user know we weren't able to honour their request - fmt <- "- RENV_BOOTSTRAP_TARBALL is set (%s) but does not exist." - msg <- sprintf(fmt, tarball) - warning(msg) - - # bail - return() - - } - - catf("- Using local tarball '%s'.", tarball) - tarball - - } - - renv_bootstrap_download_github <- function(version) { - - enabled <- Sys.getenv("RENV_BOOTSTRAP_FROM_GITHUB", unset = "TRUE") - if (!identical(enabled, "TRUE")) - return(FALSE) - - # prepare download options - pat <- Sys.getenv("GITHUB_PAT") - if (nzchar(Sys.which("curl")) && nzchar(pat)) { - fmt <- "--location --fail --header \"Authorization: token %s\"" - extra <- sprintf(fmt, pat) - saved <- options("download.file.method", "download.file.extra") - options(download.file.method = "curl", download.file.extra = extra) - on.exit(do.call(base::options, saved), add = TRUE) - } else if (nzchar(Sys.which("wget")) && nzchar(pat)) { - fmt <- "--header=\"Authorization: token %s\"" - extra <- sprintf(fmt, pat) - saved <- options("download.file.method", "download.file.extra") - options(download.file.method = "wget", download.file.extra = extra) - on.exit(do.call(base::options, saved), add = TRUE) - } - - url <- file.path("https://api.github.com/repos/rstudio/renv/tarball", version) - name <- sprintf("renv_%s.tar.gz", version) - destfile <- file.path(tempdir(), name) - - status <- tryCatch( - renv_bootstrap_download_impl(url, destfile), - condition = identity - ) - - if (!identical(status, 0L)) - return(FALSE) - - renv_bootstrap_download_augment(destfile) - - return(destfile) - - } - - # Add Sha to DESCRIPTION. This is stop gap until #890, after which we - # can use renv::install() to fully capture metadata. - renv_bootstrap_download_augment <- function(destfile) { - sha <- renv_bootstrap_git_extract_sha1_tar(destfile) - if (is.null(sha)) { - return() - } - - # Untar - tempdir <- tempfile("renv-github-") - on.exit(unlink(tempdir, recursive = TRUE), add = TRUE) - untar(destfile, exdir = tempdir) - pkgdir <- dir(tempdir, full.names = TRUE)[[1]] - - # Modify description - desc_path <- file.path(pkgdir, "DESCRIPTION") - desc_lines <- readLines(desc_path) - remotes_fields <- c( - "RemoteType: github", - "RemoteHost: api.github.com", - "RemoteRepo: renv", - "RemoteUsername: rstudio", - "RemotePkgRef: rstudio/renv", - paste("RemoteRef: ", sha), - paste("RemoteSha: ", sha) - ) - writeLines(c(desc_lines[desc_lines != ""], remotes_fields), con = desc_path) - - # Re-tar - local({ - old <- setwd(tempdir) - on.exit(setwd(old), add = TRUE) - - tar(destfile, compression = "gzip") - }) - invisible() - } - - # Extract the commit hash from a git archive. Git archives include the SHA1 - # hash as the comment field of the tarball pax extended header - # (see https://www.kernel.org/pub/software/scm/git/docs/git-archive.html) - # For GitHub archives this should be the first header after the default one - # (512 byte) header. - renv_bootstrap_git_extract_sha1_tar <- function(bundle) { - - # open the bundle for reading - # We use gzcon for everything because (from ?gzcon) - # > Reading from a connection which does not supply a 'gzip' magic - # > header is equivalent to reading from the original connection - conn <- gzcon(file(bundle, open = "rb", raw = TRUE)) - on.exit(close(conn)) - - # The default pax header is 512 bytes long and the first pax extended header - # with the comment should be 51 bytes long - # `52 comment=` (11 chars) + 40 byte SHA1 hash - len <- 0x200 + 0x33 - res <- rawToChar(readBin(conn, "raw", n = len)[0x201:len]) - - if (grepl("^52 comment=", res)) { - sub("52 comment=", "", res) - } else { - NULL - } - } - - renv_bootstrap_install <- function(version, tarball, library) { - - # attempt to install it into project library - dir.create(library, showWarnings = FALSE, recursive = TRUE) - output <- renv_bootstrap_install_impl(library, tarball) - - # check for successful install - status <- attr(output, "status") - if (is.null(status) || identical(status, 0L)) - return(status) - - # an error occurred; report it - header <- "installation of renv failed" - lines <- paste(rep.int("=", nchar(header)), collapse = "") - text <- paste(c(header, lines, output), collapse = "\n") - stop(text) - - } - - renv_bootstrap_install_impl <- function(library, tarball) { - - # invoke using system2 so we can capture and report output - bin <- R.home("bin") - exe <- if (Sys.info()[["sysname"]] == "Windows") "R.exe" else "R" - R <- file.path(bin, exe) - - args <- c( - "--vanilla", "CMD", "INSTALL", "--no-multiarch", - "-l", shQuote(path.expand(library)), - shQuote(path.expand(tarball)) - ) - - system2(R, args, stdout = TRUE, stderr = TRUE) - - } - - renv_bootstrap_platform_prefix <- function() { - - # construct version prefix - version <- paste(R.version$major, R.version$minor, sep = ".") - prefix <- paste("R", numeric_version(version)[1, 1:2], sep = "-") - - # include SVN revision for development versions of R - # (to avoid sharing platform-specific artefacts with released versions of R) - devel <- - identical(R.version[["status"]], "Under development (unstable)") || - identical(R.version[["nickname"]], "Unsuffered Consequences") - - if (devel) - prefix <- paste(prefix, R.version[["svn rev"]], sep = "-r") - - # build list of path components - components <- c(prefix, R.version$platform) - - # include prefix if provided by user - prefix <- renv_bootstrap_platform_prefix_impl() - if (!is.na(prefix) && nzchar(prefix)) - components <- c(prefix, components) - - # build prefix - paste(components, collapse = "/") - - } - - renv_bootstrap_platform_prefix_impl <- function() { - - # if an explicit prefix has been supplied, use it - prefix <- Sys.getenv("RENV_PATHS_PREFIX", unset = NA) - if (!is.na(prefix)) - return(prefix) - - # if the user has requested an automatic prefix, generate it - auto <- Sys.getenv("RENV_PATHS_PREFIX_AUTO", unset = NA) - if (is.na(auto) && getRversion() >= "4.4.0") - auto <- "TRUE" - - if (auto %in% c("TRUE", "True", "true", "1")) - return(renv_bootstrap_platform_prefix_auto()) - - # empty string on failure - "" - - } - - renv_bootstrap_platform_prefix_auto <- function() { - - prefix <- tryCatch(renv_bootstrap_platform_os(), error = identity) - if (inherits(prefix, "error") || prefix %in% "unknown") { - - msg <- paste( - "failed to infer current operating system", - "please file a bug report at https://github.com/rstudio/renv/issues", - sep = "; " - ) - - warning(msg) - - } - - prefix - - } - - renv_bootstrap_platform_os <- function() { - - sysinfo <- Sys.info() - sysname <- sysinfo[["sysname"]] - - # handle Windows + macOS up front - if (sysname == "Windows") - return("windows") - else if (sysname == "Darwin") - return("macos") - - # check for os-release files - for (file in c("/etc/os-release", "/usr/lib/os-release")) - if (file.exists(file)) - return(renv_bootstrap_platform_os_via_os_release(file, sysinfo)) - - # check for redhat-release files - if (file.exists("/etc/redhat-release")) - return(renv_bootstrap_platform_os_via_redhat_release()) - - "unknown" - - } - - renv_bootstrap_platform_os_via_os_release <- function(file, sysinfo) { - - # read /etc/os-release - release <- utils::read.table( - file = file, - sep = "=", - quote = c("\"", "'"), - col.names = c("Key", "Value"), - comment.char = "#", - stringsAsFactors = FALSE - ) - - vars <- as.list(release$Value) - names(vars) <- release$Key - - # get os name - os <- tolower(sysinfo[["sysname"]]) - - # read id - id <- "unknown" - for (field in c("ID", "ID_LIKE")) { - if (field %in% names(vars) && nzchar(vars[[field]])) { - id <- vars[[field]] - break - } - } - - # read version - version <- "unknown" - for (field in c("UBUNTU_CODENAME", "VERSION_CODENAME", "VERSION_ID", "BUILD_ID")) { - if (field %in% names(vars) && nzchar(vars[[field]])) { - version <- vars[[field]] - break - } - } - - # join together - paste(c(os, id, version), collapse = "-") - - } - - renv_bootstrap_platform_os_via_redhat_release <- function() { - - # read /etc/redhat-release - contents <- readLines("/etc/redhat-release", warn = FALSE) - - # infer id - id <- if (grepl("centos", contents, ignore.case = TRUE)) - "centos" - else if (grepl("redhat", contents, ignore.case = TRUE)) - "redhat" - else - "unknown" - - # try to find a version component (very hacky) - version <- "unknown" - - parts <- strsplit(contents, "[[:space:]]")[[1L]] - for (part in parts) { - - nv <- tryCatch(numeric_version(part), error = identity) - if (inherits(nv, "error")) - next - - version <- nv[1, 1] - break - - } - - paste(c("linux", id, version), collapse = "-") - - } - - renv_bootstrap_library_root_name <- function(project) { - - # use project name as-is if requested - asis <- Sys.getenv("RENV_PATHS_LIBRARY_ROOT_ASIS", unset = "FALSE") - if (asis) - return(basename(project)) - - # otherwise, disambiguate based on project's path - id <- substring(renv_bootstrap_hash_text(project), 1L, 8L) - paste(basename(project), id, sep = "-") - - } - - renv_bootstrap_library_root <- function(project) { - - prefix <- renv_bootstrap_profile_prefix() - - path <- Sys.getenv("RENV_PATHS_LIBRARY", unset = NA) - if (!is.na(path)) - return(paste(c(path, prefix), collapse = "/")) - - path <- renv_bootstrap_library_root_impl(project) - if (!is.null(path)) { - name <- renv_bootstrap_library_root_name(project) - return(paste(c(path, prefix, name), collapse = "/")) - } - - renv_bootstrap_paths_renv("library", project = project) - - } - - renv_bootstrap_library_root_impl <- function(project) { - - root <- Sys.getenv("RENV_PATHS_LIBRARY_ROOT", unset = NA) - if (!is.na(root)) - return(root) - - type <- renv_bootstrap_project_type(project) - if (identical(type, "package")) { - userdir <- renv_bootstrap_user_dir() - return(file.path(userdir, "library")) - } - - } - - renv_bootstrap_validate_version <- function(version, description = NULL) { - - # resolve description file - # - # avoid passing lib.loc to `packageDescription()` below, since R will - # use the loaded version of the package by default anyhow. note that - # this function should only be called after 'renv' is loaded - # https://github.com/rstudio/renv/issues/1625 - description <- description %||% packageDescription("renv") - - # check whether requested version 'version' matches loaded version of renv - sha <- attr(version, "sha", exact = TRUE) - valid <- if (!is.null(sha)) - renv_bootstrap_validate_version_dev(sha, description) - else - renv_bootstrap_validate_version_release(version, description) - - if (valid) - return(TRUE) - - # the loaded version of renv doesn't match the requested version; - # give the user instructions on how to proceed - dev <- identical(description[["RemoteType"]], "github") - remote <- if (dev) - paste("rstudio/renv", description[["RemoteSha"]], sep = "@") - else - paste("renv", description[["Version"]], sep = "@") - - # display both loaded version + sha if available - friendly <- renv_bootstrap_version_friendly( - version = description[["Version"]], - sha = if (dev) description[["RemoteSha"]] - ) - - fmt <- heredoc(" - renv %1$s was loaded from project library, but this project is configured to use renv %2$s. - - Use `renv::record(\"%3$s\")` to record renv %1$s in the lockfile. - - Use `renv::restore(packages = \"renv\")` to install renv %2$s into the project library. - ") - catf(fmt, friendly, renv_bootstrap_version_friendly(version), remote) - - FALSE - - } - - renv_bootstrap_validate_version_dev <- function(version, description) { - expected <- description[["RemoteSha"]] - is.character(expected) && startswith(expected, version) - } - - renv_bootstrap_validate_version_release <- function(version, description) { - expected <- description[["Version"]] - is.character(expected) && identical(expected, version) - } - - renv_bootstrap_hash_text <- function(text) { - - hashfile <- tempfile("renv-hash-") - on.exit(unlink(hashfile), add = TRUE) - - writeLines(text, con = hashfile) - tools::md5sum(hashfile) - - } - - renv_bootstrap_load <- function(project, libpath, version) { - - # try to load renv from the project library - if (!requireNamespace("renv", lib.loc = libpath, quietly = TRUE)) - return(FALSE) - - # warn if the version of renv loaded does not match - renv_bootstrap_validate_version(version) - - # execute renv load hooks, if any - hooks <- getHook("renv::autoload") - for (hook in hooks) - if (is.function(hook)) - tryCatch(hook(), error = warnify) - - # load the project - renv::load(project) - - TRUE - - } - - renv_bootstrap_profile_load <- function(project) { - - # if RENV_PROFILE is already set, just use that - profile <- Sys.getenv("RENV_PROFILE", unset = NA) - if (!is.na(profile) && nzchar(profile)) - return(profile) - - # check for a profile file (nothing to do if it doesn't exist) - path <- renv_bootstrap_paths_renv("profile", profile = FALSE, project = project) - if (!file.exists(path)) - return(NULL) - - # read the profile, and set it if it exists - contents <- readLines(path, warn = FALSE) - if (length(contents) == 0L) - return(NULL) - - # set RENV_PROFILE - profile <- contents[[1L]] - if (!profile %in% c("", "default")) - Sys.setenv(RENV_PROFILE = profile) - - profile - - } - - renv_bootstrap_profile_prefix <- function() { - profile <- renv_bootstrap_profile_get() - if (!is.null(profile)) - return(file.path("profiles", profile, "renv")) - } - - renv_bootstrap_profile_get <- function() { - profile <- Sys.getenv("RENV_PROFILE", unset = "") - renv_bootstrap_profile_normalize(profile) - } - - renv_bootstrap_profile_set <- function(profile) { - profile <- renv_bootstrap_profile_normalize(profile) - if (is.null(profile)) - Sys.unsetenv("RENV_PROFILE") - else - Sys.setenv(RENV_PROFILE = profile) - } - - renv_bootstrap_profile_normalize <- function(profile) { - - if (is.null(profile) || profile %in% c("", "default")) - return(NULL) - - profile - - } - - renv_bootstrap_path_absolute <- function(path) { - - substr(path, 1L, 1L) %in% c("~", "/", "\\") || ( - substr(path, 1L, 1L) %in% c(letters, LETTERS) && - substr(path, 2L, 3L) %in% c(":/", ":\\") - ) - - } - - renv_bootstrap_paths_renv <- function(..., profile = TRUE, project = NULL) { - renv <- Sys.getenv("RENV_PATHS_RENV", unset = "renv") - root <- if (renv_bootstrap_path_absolute(renv)) NULL else project - prefix <- if (profile) renv_bootstrap_profile_prefix() - components <- c(root, renv, prefix, ...) - paste(components, collapse = "/") - } - - renv_bootstrap_project_type <- function(path) { - - descpath <- file.path(path, "DESCRIPTION") - if (!file.exists(descpath)) - return("unknown") - - desc <- tryCatch( - read.dcf(descpath, all = TRUE), - error = identity - ) - - if (inherits(desc, "error")) - return("unknown") - - type <- desc$Type - if (!is.null(type)) - return(tolower(type)) - - package <- desc$Package - if (!is.null(package)) - return("package") - - "unknown" - - } - - renv_bootstrap_user_dir <- function() { - dir <- renv_bootstrap_user_dir_impl() - path.expand(chartr("\\", "/", dir)) - } - - renv_bootstrap_user_dir_impl <- function() { - - # use local override if set - override <- getOption("renv.userdir.override") - if (!is.null(override)) - return(override) - - # use R_user_dir if available - tools <- asNamespace("tools") - if (is.function(tools$R_user_dir)) - return(tools$R_user_dir("renv", "cache")) - - # try using our own backfill for older versions of R - envvars <- c("R_USER_CACHE_DIR", "XDG_CACHE_HOME") - for (envvar in envvars) { - root <- Sys.getenv(envvar, unset = NA) - if (!is.na(root)) - return(file.path(root, "R/renv")) - } - - # use platform-specific default fallbacks - if (Sys.info()[["sysname"]] == "Windows") - file.path(Sys.getenv("LOCALAPPDATA"), "R/cache/R/renv") - else if (Sys.info()[["sysname"]] == "Darwin") - "~/Library/Caches/org.R-project.R/R/renv" - else - "~/.cache/R/renv" - - } - - renv_bootstrap_version_friendly <- function(version, shafmt = NULL, sha = NULL) { - sha <- sha %||% attr(version, "sha", exact = TRUE) - parts <- c(version, sprintf(shafmt %||% " [sha: %s]", substring(sha, 1L, 7L))) - paste(parts, collapse = "") - } - - renv_bootstrap_exec <- function(project, libpath, version) { - if (!renv_bootstrap_load(project, libpath, version)) - renv_bootstrap_run(version, libpath) - } - - renv_bootstrap_run <- function(version, libpath) { - - # perform bootstrap - bootstrap(version, libpath) - - # exit early if we're just testing bootstrap - if (!is.na(Sys.getenv("RENV_BOOTSTRAP_INSTALL_ONLY", unset = NA))) - return(TRUE) - - # try again to load - if (requireNamespace("renv", lib.loc = libpath, quietly = TRUE)) { - return(renv::load(project = getwd())) - } - - # failed to download or load renv; warn the user - msg <- c( - "Failed to find an renv installation: the project will not be loaded.", - "Use `renv::activate()` to re-initialize the project." - ) - - warning(paste(msg, collapse = "\n"), call. = FALSE) - - } - - renv_json_read <- function(file = NULL, text = NULL) { - - jlerr <- NULL - - # if jsonlite is loaded, use that instead - if ("jsonlite" %in% loadedNamespaces()) { - - json <- tryCatch(renv_json_read_jsonlite(file, text), error = identity) - if (!inherits(json, "error")) - return(json) - - jlerr <- json - - } - - # otherwise, fall back to the default JSON reader - json <- tryCatch(renv_json_read_default(file, text), error = identity) - if (!inherits(json, "error")) - return(json) - - # report an error - if (!is.null(jlerr)) - stop(jlerr) - else - stop(json) - - } - - renv_json_read_jsonlite <- function(file = NULL, text = NULL) { - text <- paste(text %||% readLines(file, warn = FALSE), collapse = "\n") - jsonlite::fromJSON(txt = text, simplifyVector = FALSE) - } - - renv_json_read_default <- function(file = NULL, text = NULL) { - - # find strings in the JSON - text <- paste(text %||% readLines(file, warn = FALSE), collapse = "\n") - pattern <- '["](?:(?:\\\\.)|(?:[^"\\\\]))*?["]' - locs <- gregexpr(pattern, text, perl = TRUE)[[1]] - - # if any are found, replace them with placeholders - replaced <- text - strings <- character() - replacements <- character() - - if (!identical(c(locs), -1L)) { - - # get the string values - starts <- locs - ends <- locs + attr(locs, "match.length") - 1L - strings <- substring(text, starts, ends) - - # only keep those requiring escaping - strings <- grep("[[\\]{}:]", strings, perl = TRUE, value = TRUE) - - # compute replacements - replacements <- sprintf('"\032%i\032"', seq_along(strings)) - - # replace the strings - mapply(function(string, replacement) { - replaced <<- sub(string, replacement, replaced, fixed = TRUE) - }, strings, replacements) - - } - - # transform the JSON into something the R parser understands - transformed <- replaced - transformed <- gsub("{}", "`names<-`(list(), character())", transformed, fixed = TRUE) - transformed <- gsub("[[{]", "list(", transformed, perl = TRUE) - transformed <- gsub("[]}]", ")", transformed, perl = TRUE) - transformed <- gsub(":", "=", transformed, fixed = TRUE) - text <- paste(transformed, collapse = "\n") - - # parse it - json <- parse(text = text, keep.source = FALSE, srcfile = NULL)[[1L]] - - # construct map between source strings, replaced strings - map <- as.character(parse(text = strings)) - names(map) <- as.character(parse(text = replacements)) - - # convert to list - map <- as.list(map) - - # remap strings in object - remapped <- renv_json_read_remap(json, map) - - # evaluate - eval(remapped, envir = baseenv()) - - } - - renv_json_read_remap <- function(json, map) { - - # fix names - if (!is.null(names(json))) { - lhs <- match(names(json), names(map), nomatch = 0L) - rhs <- match(names(map), names(json), nomatch = 0L) - names(json)[rhs] <- map[lhs] - } - - # fix values - if (is.character(json)) - return(map[[json]] %||% json) - - # handle true, false, null - if (is.name(json)) { - text <- as.character(json) - if (text == "true") - return(TRUE) - else if (text == "false") - return(FALSE) - else if (text == "null") - return(NULL) - } - - # recurse - if (is.recursive(json)) { - for (i in seq_along(json)) { - json[i] <- list(renv_json_read_remap(json[[i]], map)) - } - } - - json - - } - - # load the renv profile, if any - renv_bootstrap_profile_load(project) - - # construct path to library root - root <- renv_bootstrap_library_root(project) - - # construct library prefix for platform - prefix <- renv_bootstrap_platform_prefix() - - # construct full libpath - libpath <- file.path(root, prefix) - - # run bootstrap code - renv_bootstrap_exec(project, libpath, version) - - invisible() - -}) diff --git a/renv/settings.json b/renv/settings.json deleted file mode 100644 index ffdbb32..0000000 --- a/renv/settings.json +++ /dev/null @@ -1,19 +0,0 @@ -{ - "bioconductor.version": null, - "external.libraries": [], - "ignored.packages": [], - "package.dependency.fields": [ - "Imports", - "Depends", - "LinkingTo" - ], - "ppm.enabled": null, - "ppm.ignored.urls": [], - "r.version": null, - "snapshot.type": "implicit", - "use.cache": true, - "vcs.ignore.cellar": true, - "vcs.ignore.library": true, - "vcs.ignore.local": true, - "vcs.manage.ignores": true -}