Today I learned about the profvis package to make my code faster, from the identification of commands that are demanding more time. The example provided by the package (Profvis — Interactive Visualizations for Profiling R Code) I can run normally, but when I try in my code, nothing happens, it appears: (Sources not available). So I would like to know, what am I doing wrong?
library(dplyr)
library(tidyverse)
library(lubridate)
library(profvis)
df1 <- structure(
list(Id= c("1","1","2","2"),
date1= c("2021-06-26","2021-06-26","2021-06-26","2021-06-26"),
date2 = c("2021-06-27","2021-07-01","2021-07-02","2021-07-02"),
Category = c("ABC","ABC","ABC","CDE"),
Week= c("Saturday","Wednesday","Thursday","Thursday"),
DR1 = c(5,4,1,1),
DRM01 = c(8,4,1,2), DRM02= c(7,4,2,2),DRM03= c(6,9,5,1),
DRM04 = c(5,5,4,2),DRM05 = c(5,5,4,2),DRM06 = c(7,5,4,2),DRM07 = c(2,5,4,1),DRM08 = c(2,5,4,2)),
class = "data.frame", row.names = c(NA, -4L))
profvis({
x<-df1 %>% select(starts_with("DRM"))
x<-cbind(df1, setNames(df1$DR1 - x, paste0(names(x), "_PV")))
PV<-select(x,Id, date2,Week, Category, DR1, ends_with("PV"))
med<-PV %>%
group_by(Id,Category,Week) %>%
dplyr::summarize(dplyr::across(ends_with("PV"), median),.groups = 'drop')
SPV<-df1%>%
inner_join(med, by = c('Id','Category', 'Week')) %>%
mutate(across(matches("^DRM\\d+$"), ~.x +
get(paste0(cur_column(), '_PV')),
.names = '{col}_{col}_PV')) %>%
select(Id:Category, DRM01_DRM01_PV:last_col())
})
