From 51efd90152054e6a345881ef457f74266f174565 Mon Sep 17 00:00:00 2001 From: James Lamb Date: Tue, 29 Nov 2022 03:26:26 +0000 Subject: [PATCH] [R-package] correctly quote paths on Windows for CMake-based builds (#5607) --- build_r.R | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/build_r.R b/build_r.R index 64ca29989db9..79e8b42e8fdc 100644 --- a/build_r.R +++ b/build_r.R @@ -100,17 +100,18 @@ if (length(keyword_args) > 0L) { for (i in seq_len(length(keyword_args))) { arg_name <- names(keyword_args)[[i]] define_name <- ARGS_TO_DEFINES[[arg_name]] - arg_value <- shQuote(keyword_args[[arg_name]]) + arg_value <- shQuote(normalizePath(keyword_args[[arg_name]], winslash = "/")) cmake_args_to_add <- c(cmake_args_to_add, paste0(define_name, "=", arg_value)) } install_libs_content <- gsub( pattern = paste0("command_line_args <- NULL") , replacement = paste0( - "command_line_args <- c(\"" - , paste(cmake_args_to_add, collapse = "\", \"") - , "\")" + "command_line_args <- c(\'" + , paste(cmake_args_to_add, collapse = "', '") + , "')" ) , x = install_libs_content + , fixed = TRUE ) }