WIP: use_gitpod() and use_cmakelists() drafts

NAMESPACE

@@ -10,6 +10,8 @@ export(init_tic)
 export(renv_downgrade)
 export(renv_install_local)
 export(renv_switch_r_version)
+export(use_cmakelists)
+export(use_gitpod)
 importFrom(checkmate,assert_character)
 importFrom(cli,cli_alert)
 importFrom(gh,gh)

R/use_cmakelists.R

@@ -0,0 +1,85 @@
+#'
+#'
+#' @export
+use_cmakelists <- function(project = NULL) {
+  writeLines(
+    c(
+      "cmake_minimum_required(VERSION 3.0.0)",
+      paste0("project(", project, " VERSION 0.1.0)"),
+      "set(CMAKE_EXPORT_COMPILE_COMMANDS ON)",
+      "include(CTest)",
+      "enable_testing()",
+      "",
+      "add_subdirectory(src)",
+      "set(CPACK_PROJECT_NAME ${PROJECT_NAME})",
+      "set(CPACK_PROJECT_VERSION ${PROJECT_VERSION})",
+      "include(CPack)",
+      "set(CMAKE_EXPORT_COMPILE_COMMANDS ON)"
+    ), "CMakeLists.txt"
+  )
+
+  if (!fs::dir_exists("src")) fs::dir_create("src")
+
+  writeLines(
+    c(
+      paste0("add_library(", project),
+      "  connection.cpp",
+      "  DbColumn.cpp",
+      "  DbColumnDataSource.cpp",
+      "  DbColumnDataSourceFactory.cpp",
+      "  DbColumnStorage.cpp",
+      "  DbConnection.cpp",
+      "  DbDataFrame.cpp",
+      "  DbResult.cpp",
+      "  encode.cpp",
+      "  encrypt.cpp",
+      "  logging.cpp",
+      "  PqColumnDataSource.cpp",
+      "  PqColumnDataSourceFactory.cpp",
+      "  PqDataFrame.cpp",
+      "  PqResult.cpp",
+      "  PqResultImpl.cpp",
+      "  PqResultSource.cpp",
+      "  PqUtils.cpp",
+      "  RcppExports.cpp",
+      "  result.cpp",
+      "  DbColumnDataSourceFactory.h",
+      "  DbColumnDataSource.h",
+      "  DbColumnDataType.h",
+      "  DbColumn.h",
+      "  DbColumnStorage.h",
+      "  DbConnection.h",
+      "  DbDataFrame.h",
+      "  DbResult.h",
+      "  DbResultImplDecl.h",
+      "  DbResultImpl.h",
+      "  encode.h",
+      "  integer64.h",
+      "  pch.h",
+      "  PqColumnDataSourceFactory.h",
+      "  PqColumnDataSource.h",
+      "  PqDataFrame.h",
+      "  PqResult.h",
+      "  PqResultImpl.h",
+      "  PqResultSource.h",
+      "  PqUtils.h",
+      "  RPostgres-init.c",
+      "  RPostgres_types.h",
+      ")",
+      "",
+      paste0("target_include_directories(", project, " PUBLIC"),
+      '    "/usr/share/R/include"',
+      '    "/home/gitpod/R/x86_64-pc-linux-gnu-library/3.6/Rcpp/include/"',
+      '    "/home/gitpod/R/x86_64-pc-linux-gnu-library/3.6/plogr/include/"',
+      '    "/usr/include/postgresql"',
+      '    "vendor"',
+      ")",
+      "",
+      paste0("target_compile_definitions(", project, " PUBLIC"),
+      '    "RCPP_DEFAULT_INCLUDE_CALL=false"',
+      '    "RCPP_USING_UTF8_ERROR_STRING"',
+      '    "BOOST_NO_AUTO_PTR"',
+      ")"
+    ), "src/CMakeLists.txt"
+  )
+}

R/use_gitpod.R

@@ -0,0 +1,55 @@
+#'
+#' @export
+use_gitpod <- function() {
+  writeLines(
+    c(
+      "# You can find the new timestamped tags here: https://hub.docker.com/r/gitpod/workspace-base/tags",
+      "FROM gitpod/workspace-base:2022-05-08-14-31-53",
+      "",
+      "# Install R and ccache",
+      "RUN sudo apt update",
+      "RUN sudo apt install -y \\",
+      "  r-base \\",
+      "  ccache \\",
+      "  cmake \\",
+      "  # Install dependencies for rlang packet",
+      "  libharfbuzz-dev libfribidi-dev"
+    ), "gitpod.Dockerfile"
+  )
+
+  writeLines(
+    "image:
+  file: .gitpod.Dockerfile
+tasks:
+  - name: dependencies
+    init: |
+      # Scriptlets, with custom Git config
+      mv ~/.gitconfig ~/.gitconfig.gitpod
+      curl -s https://raw.githubusercontent.com/krlmlr/scriptlets/master/bootstrap | sh
+      echo -e \"[credential]\n\thelper = /usr/bin/gp credential-helper\" >> ~/.gitconfig
+
+      # .editorconfig
+      ln -s ~/.editorconfig ..
+      # Set up ccache
+      ln -s /usr/lib/ccache/* ~/bin/
+
+      # Set up Makevars
+      mkdir -p ~/.R
+      echo -e \"MAKEFLAGS = -j8\\nCXXFLAGS = -O0 -g\" > ~/.R/Makevars
+
+      # Install R packages
+      echo 'options(repos = \"https://packagemanager.rstudio.com/all/__linux__/'$(cat /etc/lsb-release | sed  -n '/DISTRIB_CODENAME=/ {s///;p}')'/latest\")' > ~/.Rprofile
+      mkdir -p ~/R/x86_64-pc-linux-gnu-library/$(Rscript -e 'writeLines(gsub(\"[.][^.]+$\", \"\", as.character(getRversion())))')
+      ## Install pak in R
+      R -q -e 'install.packages(\"pak\", repos = sprintf(\"https://r-lib.github.io/p/pak/stable/%s/%s/%s\", .Platform$pkgType, R.Version()$os, R.Version()$arch))'
+      ## Install devtools and R dependencies
+      R -q -e 'pak::pak(c(\"devtools\", \"deps::.\"))'
+vscode:
+  extensions:
+    - ms-vscode.cpptools-extension-pack
+    - go2sh.cmake-integration-vscode
+    - EditorConfig.EditorConfig
+    ",
+    "gitpod.yml"
+  )
+}