search

REditorSupport / vscode-R

R Extension for Visual Studio Code
https://marketplace.visualstudio.com/items?itemName=REditorSupport.r
MIT License
1.07k stars 128 forks source link

Base R Terminal error on `R: Run from Beginning to Line` #1499

Open grcatlin opened 6 months ago

grcatlin commented 6 months ago

Describe the bug Seemingly on MacOS, there are some odd terminal behaviors when NOT using radian where extra characters get added, text is garbled, or text is sent to the terminal in a way that it breaks functionality. This new stackoverflow post brought it up though I have experienced something similar when trying to use the R: Run from Beginning to Line command on longer scripts.

To Reproduce Steps to reproduce the behavior:

  1. Go to settings.json and ensure the base R term is used for r.rterm.mac and r.rpath.mac.
  2. Set r.bracketedPaste to false
  3. Open R in VS Code and R: Run from Beginning to Line at the bottom of a "longer" script.

I have tried this when "r.bracketedPaste": false and when it is true and code fails to execute properly either way. Interestingly, when I change r.rterm.mac back to using radian R: Run from Beginning to Line works when"r.bracketedPaste": false and when it is true.

As an example here is a function that errors out when I use R: Run from Beginning to Line.

Function ```R roc_f <- function(mod, response) { # generate prediction pred <- ROCR::prediction( glmmTMB:::predict.glmmTMB(mod, type = "response"), mod$frame |> dplyr::pull(response) ) # cut rate ---- # cut cut <- ROCR::performance( pred, "tpr", "tnr" ) # create df cut_df <- data.frame( x = cut@x.values |> unlist(), y = cut@y.values |> unlist(), alpha = cut@alpha.values |> unlist() ) colnames(cut_df) <- c(cut@x.name, cut@y.name, cut@alpha.name) cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = value, group = variable ) ) + ggplot2::geom_line( ggplot2::aes(linetype = variable, color = variable) ) + ggplot2::ggtitle( "Cutpoint" ) + ggplot2::ylab("Sensitivity/Specificity") + ggplot2::xlab("Cutpoint") + gr.sg::theme_wgfd() # auc plot ---- # get raw auc value auc <- ROCR::performance( pred, measure = "auc" ) |> getElement("y.values") |> unlist() # get true positive & false positive auc_plot <- ROCR::performance( pred, "tpr", "fpr" ) # turn to df and rename cols auc_dat <- data.frame( x = auc_plot@x.values, y = auc_plot@y.values ) colnames(auc_dat) <- c(auc_plot@x.name, auc_plot@y.name) # ggplot2 object auc_plot <- ggplot2::ggplot( auc_dat, ggplot2::aes( x = .data[[auc_plot@x.name]], y = .data[[auc_plot@y.name]] ) ) + ggplot2::geom_line() + ggplot2::geom_abline(col = "red") + ggplot2::ggtitle( label = "ROC curve", subtitle = paste0("AUC: ", round(auc, digits = 3)) ) + gr.sg::theme_wgfd() # return ---- # setup list ls <- list( auc_val = auc, auc_plot = auc_plot, cut_plot = cut_plot ) # return return(ls) } ```

This is what happens in my terminal when I try to run it - note that it repeats itself multiple times:

Terminal ``` # ROC function ---- roc_f <- function(mod, response) { # generate prediction pred <- ROCR::prediction( glmmTMB:::predict.glmmTMB(mod, type = "response"), mod$frame |> dplyr::pull(response) ) # cut rate ---- # cut cut <- ROCR::performance( pred, "tpr", "tnr" ) # create df cut_df <- data.frame( x = cut@x.values |> unlist(), y = cut@y.values |> unlist(), alpha = cut@alpha.values |> unlist() ) colnames(cut_df) <- c(cut@x.name, cut@y.name, cut@alpha.name) cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + > # ROC function ---- roc_f <- function(mod, response) { # generate prediction pred <- ROCR::prediction( glmmTMB:::predict.glmmTMB(mod, type = "response"), mod$frame |> dplyr::pull(response) ) # cut rate ---- # cut cut <- ROCR::performance( pred, "tpr", "tnr" ) # create df cut_df <- data.frame( x = cut@x.values |> unlist(), y = cut@y.values |> unlist(), alpha = cut@alpha.values |> unlist() ) colnames(cut_df) <- c(cut@x.name, cut@y.name, cut@alpha.name) cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + gg> # ROC function ---- > > roc_f <- function(mod, response) { # generate prediction pred <- ROCR::prediction( glmmTMB:::predict.glmmTMB(mod, type = "response"), mod$frame |> dplyr::pull(response) ) # cut rate ---- # cut cut <- ROCR::performance( pred, "tpr", "tnr" ) # create df cut_df <- data.frame( x = cut@x.values |> unlist(), y = cut@y.values |> unlist(), alpha = cut@alpha.values |> unlist() ) colnames(cut_df) <- c(cut@x.name, cut@y.name, cut@alpha.name) cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + + # generate prediction pred <- ROCR::prediction( glmmTMB:::predict.glmmTMB(mod, type = "response"), mod$frame |> dplyr::pull(response) ) # cut rate ---- # cut cut <- ROCR::performance( pred, "tpr", "tnr" ) # create df cut_df <- data.frame( x = cut@x.values |> unlist(), y = cut@y.values |> unlist(), alpha = cut@alpha.values |> unlist() ) colnames(cut_df) <- c(cut@x.name, cut@y.name, cut@alpha.name) cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + + pred <- ROCR::prediction( + glmmTMB:::predict.glmmTMB(mod, type = "response"), mod$frame |> dplyr::pull(response) ) # cut rate ---- # cut cut <- ROCR::performance( pred, "tpr", "tnr" ) # create df cut_df <- data.frame( x = cut@x.values |> unlist(), y = cut@y.values |> unlist(), alpha = cut@alpha.values |> unlist() ) colnames(cut_df) <- c(cut@x.name, cut@y.name, cut@alpha.name) cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g + mod$frame |> dplyr::pull(response) + ) # cut rate ---- # cut cut <- ROCR::performance( pred, "tpr", "tnr" ) # create df cut_df <- data.frame( x = cut@x.values |> unlist(), y = cut@y.values |> unlist(), alpha = cut@alpha.values |> unlist() ) colnames(cut_df) <- c(cut@x.name, cut@y.name, cut@alpha.name) cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- + # cut rate ---- # cut cut <- ROCR::performance( pred, "tpr", "tnr" ) # create df cut_df <- data.frame( x = cut@x.values |> unlist(), y = cut@y.values |> unlist(), alpha = cut@alpha.values |> unlist() ) colnames(cut_df) <- c(cut@x.name, cut@y.name, cut@alpha.name) cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- RO+ # cut rate ---- # cut cut <- ROCR::performance( pred, "tpr", "tnr" ) # create df cut_df <- data.frame( x = cut@x.values |> unlist(), y = cut@y.values |> unlist(), alpha = cut@alpha.values |> unlist() ) colnames(cut_df) <- c(cut@x.name, cut@y.name, cut@alpha.name) cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( + # cut cut <- ROCR::performance( pred, "tpr", "tnr" ) # create df cut_df <- data.frame( x = cut@x.values |> unlist(), y = cut@y.values |> unlist(), alpha = cut@alpha.values |> unlist() ) colnames(cut_df) <- c(cut@x.name, cut@y.name, cut@alpha.name) cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( + # cut + cut <- ROCR::performance( pred, "tpr", "tnr" ) # create df cut_df <- data.frame( x = cut@x.values |> unlist(), y = cut@y.values |> unlist(), alpha = cut@alpha.values |> unlist() ) colnames(cut_df) <- c(cut@x.name, cut@y.name, cut@alpha.name) cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) + pred, "tpr", "tnr" ) # create df cut_df <- data.frame( x = cut@x.values |> unlist(), y = cut@y.values |> unlist(), alpha = cut@alpha.values |> unlist() ) colnames(cut_df) <- c(cut@x.name, cut@y.name, cut@alpha.name) cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) | ) | ) |+ "tpr", "tnr" ) # create df cut_df <- data.frame( x = cut@x.values |> unlist(), y = cut@y.values |> unlist(), alpha = cut@alpha.values |> unlist() ) colnames(cut_df) <- c(cut@x.name, cut@y.name, cut@alpha.name) cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) | ) | ) | ) | ) ues+ "tnr" + ) # create df cut_df <- data.frame( x = cut@x.values |> unlist(), y = cut@y.values |> unlist(), alpha = cut@alpha.values |> unlist() ) colnames(cut_df) <- c(cut@x.name, cut@y.name, cut@alpha.name) cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) | ) | ) | ) | ) ues ) | ) | + # create df cut_df <- data.frame( x = cut@x.values |> unlist(), y = cut@y.values |> unlist(), alpha = cut@alpha.values |> unlist() ) colnames(cut_df) <- c(cut@x.name, cut@y.name, cut@alpha.name) cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) | ) | ) | ) | ) ues ) | ) | + # create df cut_df <- data.frame( x = cut@x.values |> unlist(), y = cut@y.values |> unlist(), alpha = cut@alpha.values |> unlist() ) colnames(cut_df) <- c(cut@x.name, cut@y.name, cut@alpha.name) cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) | ) | ) | ) | ) ues ) | ) | ) # get true po+ cut_df <- data.frame( x = cut@x.values |> unlist(), y = cut@y.values |> unlist(), alpha = cut@alpha.values |> unlist() ) colnames(cut_df) <- c(cut@x.name, cut@y.name, cut@alpha.name) cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) | ) | ) | ) | ) ues ) | ) | ) # get true posi e & ) | ) | + x = cut@x.values |> unlist(), + y = cut@y.values |> unlist(), alpha = cut@alpha.values |> unlist() ) colnames(cut_df) <- c(cut@x.name, cut@y.name, cut@alpha.name) cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) | ) | ) | ) | ) ues ) | ) | ) # get true posi e & ) | ) | erformance( pred, "tpr", + alpha = cut@alpha.values |> unlist() ) colnames(cut_df) <- c(cut@x.name, cut@y.name, cut@alpha.name) cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) | ) | ) | ) | ) ues ) | ) | ) # get true posi e & ) | ) | erformance( pred, "tpr", f a e cols + ) + colnames(cut_df) <- c(cut@x.name, cut@y.name, cut@alpha.name) cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) | ) | ) | ) | ) ues ) | ) | ) # get true posi e & ) | ) | erformance( pred, "tpr", f a e cols auc_dat <- data.frame( x x x x x + cut_df <- cut_df |> data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) | ) | ) | ) | ) ues ) | ) | ) # get true posi e & ) | ) | erformance( pred, "tpr", f a e cols auc_dat <- data.frame( x x x x x x x coln+ data.table::as.data.table() |> data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) | ) | ) | ) | ) ues ) | ) | ) # get true posi e & ) | ) | erformance( pred, "tpr", f a e cols auc_dat <- data.frame( x x x x x x x coln x x c_p x + data.table::melt.data.table(id.vars = cut@alpha.name) cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) | ) | ) | ) | ) ues ) | ) | ) # get true posi e & ) | ) | erformance( pred, "tpr", f a e cols auc_dat <- data.frame( x x x x x x x coln x x c_p x x x xggp x x x x + cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) | ) | ) | ) | ) ues ) | ) | ) # get true posi e & ) | ) | erformance( pred, "tpr", f a e cols auc_dat <- data.frame( x x x x x x x coln x x c_p x x x xggp x x x x + cut_plot <- ggplot2::ggplot( cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) | ) | ) | ) | ) ues ) | ) | ) # get true posi e & ) | ) | erformance( pred, "tpr", f a e cols auc_dat <- data.frame( x x x x x x x coln x x c_p x x x xggp x x x x x x t, + cut_df, ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) | ) | ) | ) | ) ues ) | ) | ) # get true posi e & ) | ) | erformance( pred, "tpr", f a e cols auc_dat <- data.frame( x x x x x x x coln x x c_p x x x xggp x x x x x x t, + ggplot2::aes( x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) | ) | ) | ) | ) ues ) | ) | ) # get true posi e & ) | ) | erformance( pred, "tpr", f a e cols auc_dat <- data.frame( x x x x x x x coln x x c_p x x x xggp x x x x x x t, .data[[auc_p + x = .data[[cut@alpha.name]], y = y = up y = y = uplot line( ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) | ) | ) | ) | ) ues ) | ) | ) # get true posi e & ) | ) | erformance( pred, "tpr", f a e cols auc_dat <- data.frame( x x x x x x x coln x x c_p x x x xggp x x x x x x t, .data[[auc_p + y = y = up uplot line( Error: unexpected '=' in: " x = .data[[cut@alpha.name]], y = y =" > ggplot2::aes ggplot2::aes ggplot2::aes + ggplot2::ggtitle( "Cutpoint" ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) | ) | ) | ) | ) ues ) | ) | ) # get true posi e & ) | ) | erformance( pred, "tpr", f a e cols auc_dat <- data.frame( x x x x x x x coln x x c_p x x x xggp x x x x x x t, .data[[auc_p . ) ) + ggplot2::geom_line() + ggplot2::geom_abline(col = "red") + ggplo ggplo ggplo ggplo ggplo Error: unexpected symbol in " ggplot2::aes ggplot2" > ggplot2::ggtitle( + "Cutpoint" + ) + ci plot2::xlab("Cutpoint") + g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) | ) | ) | ) | ) ues ) | ) | ) # get true posi e & ) | ) | erformance( pred, "tpr", f a e cols auc_dat <- data.frame( x x x x x x x coln x x c_p x x x xggp x x x x x x t, .data[[auc_p . ) ) + ggplot2::geom_line() + ggplot2::geom_abline(col = "red") + ggplo ggplo ggplo ggplo ggplo ggplo te0("AUC: ", round(auc, digits = 3)) ) + ci pl"Cutpoint") + Error: unexpected symbol in: " ) + ci plot2" > g g g g g g g c value auc <- ROCR::performance( pred, pred, R:: "auc" ) | ) | ) | ) | ) ues ) | ) | ) # get true posi e & ) | ) | erformance( pred, "tpr", f a e cols auc_dat <- data.frame( x x x x x x x coln x x c_p x x x xggp x x x x x x t, .data[[auc_p . ) ) + ggplot2::geom_line() + ggplot2::geom_abline(col = "red") + ggplo ggplo ggplo ggplo ggplo ggplo te0("AUC: ", round(auc, digits = 3)) ) + g::theme_wgfd() # return ---- # setup list ls <- list( auc_val = auc, auc_val = auc, auc_val = auc, Error: unexpected symbol in " g g" > auc <- ROCR::performance( + pred, + pred, + R:: "auc" + ) | ) | ) | ) | ) ues ) | ) | ) # get true posi e & ) | ) | Error: unexpected ')' in: "R:: "auc" ) | )" > erformance( + pred, + "tpr", + f a e cols Error: unexpected symbol in: " "tpr", f a" > auc_dat <- data.frame( + x x x x x x x coln x x c_p x x x xggp x x x x x x t, Error: unexpected symbol in: " auc_dat <- data.frame( x x" > .data[[auc_p . ) Error: unexpected symbol in " .data[[auc_p ." > ) + Error: unexpected ')' in " )" > ggplot2::geom_line() + + ggplot2::geom_abline(col = "red") + + ggplo ggplo ggplo ggplo ggplo ggplo te0("AUC: ", round(auc, digits = 3)) Error: unexpected symbol in: " ggplot2::geom_abline(col = "red") + ggplo ggplo" > ) + Error: unexpected ')' in " )" > g::theme_wgfd() Error in loadNamespace(x) : there is no package called ‘g’ > > # return ---- > > # setup list > ls <- list( + auc_val = auc, auc_val = auc, auc_val = auc, auc_val = ) Error: object 'auc' not found > > # return > return(ls) Error: no function to return from, jumping to top level > } Error: unexpected '}' in "}" ```

Can you fix this issue by yourself? (We appreciate the help) No

(If applicable) Please attach setting.json

// R path for Mac OS X
"r.rterm.mac": "/usr/local/bin/R",

// Use bracketed paste mode
"r.bracketedPaste": false,

// Enable R session watcher
"r.sessionWatcher": true,

// Delay in milliseconds before sending each line to rterm (only applies if r.bracketedPaste is false)
"r.rtermSendDelay": 8,

Expected behavior For code to be send to the terminal as expected - like with radian.

Environment (please complete the following information):

grcatlin commented 6 months ago

I should note that I use VS Code with Windows and this doesn't happen there.