Subset inside lapply for Pearson correlation - subset

Question

I have tried iterate to explore pearson correlation between 2 variables with 7 more variables.
My df
df<-structure(list(d_peso1_v01 = structure(c(-8, -0.5, -13, -0.7,
-10.2, -9, -4.3, -1.6, 1.8, -11.3, -10.3, -4.6, 1.2, -2.8, -9.2
), format.spss = "F8.2", display_width = 13L), d_cintura1_v01 = structure(c(-6.5,
-3.5, -10, -2, -7, -3, -3, -4, -4.5, -9.5, -15.5, -3, 1, -4,
-12), format.spss = "F8.2", display_width = 16L), d_huglucagon_v01 = structure(c(-106.06,
NA, -75.38, 27.5, -325.38, -26.12, -104.26, 28.66, NA, -11.12,
-60.05, -76.38, -36.21, NA, -270.02), format.spss = "F8.2", display_width = 18L),
d_huinsulin_v01 = structure(c(-26.29, NA, -143.44, -410.55,
84.51, -121.56, -52.36, -151.83, NA, -42, -43.69, -82.96,
-51.27, NA, -163.12), format.spss = "F8.2", display_width = 17L),
d_huvisfatin_v01 = structure(c(-541.93, NA, -750.38, -611.9,
0, 139.61, -343.58, -149.2, NA, -91.54, -212.47, -844.05,
-353.86, NA, -1749.96), format.spss = "F8.2", display_width = 18L),
d_hupai1_v01 = structure(c(-785.4, NA, 115.96, -867.31, -10.84,
-1634, -331.21, 396.05, NA, -424.5, -143.09, 429.39, 799.11,
NA, -633.44), format.spss = "F8.2", display_width = 13L),
d_hucpeptide_v01 = structure(c(-189.33, NA, -612.6, -1250.86,
110.03, -614.69, -119.31, -305.55, NA, -104.55, -38.74, -411.38,
-65.48, NA, -143.75), format.spss = "F8.2", display_width = 18L),
d_huleptin_v01 = structure(c(-3145.34, NA, -5038.03, -2069.79,
-357.79, -1004.4, -1253.38, 365.69, NA, -2102.93, -1454.6,
-3380.95, -760.69, NA, -6078.46), format.spss = "F8.2", display_width = 16L),
d_hughrelin_v01 = structure(c(-290.46, NA, -898.76, -726.4,
-217.49, 41.13, 93.89, 436.93, NA, 12.85, -221.54, -134,
-200.15, NA, 261.3), format.spss = "F8.2", display_width = 18L),
d_hba1c_v01 = structure(c(0.02, NA, -0.26, -0.17, -1.05,
-0.41, -0.47, -0.21, NA, -0.14, -0.14, -0.43, 0.61, NA, -1.33
), format.spss = "F8.2", display_width = 13L), grupo_int_v00 = structure(c(2L,
1L, 2L, 1L, 2L, 2L, 1L, 1L, 1L, 1L, 2L, 1L, 1L, 2L, 2L), .Label = c("A",
"B"), label = "Grupo de intervención", class = "factor")), class = "data.frame", row.names = c(NA,
-15L))
I have performed all the steps to do it for the whole database, but I want to subset according to grupo_int_v00, which is a factor differentiating 2 treatments (A or B)
my_data <- dat[, c("d_peso1_v01", "d_cintura1_v01", "d_huglucagon_v01", "d_huinsulin_v01", "d_huvisfatin_v01", "d_hupai1_v01", "d_hucpeptide_v01", "d_huleptin_v01", "d_hughrelin_v01", "d_hba1c_v01", "grupo_int_v00")]
peso_pearson_01 <- lapply(my_data, function(x) {cor.test(x, my_data$d_peso1_v01, method = "pearson")})
cintura_pearson_01 <- lapply(my_data, function(x) {cor.test(x, my_data$d_cintura1_v01, method = "pearson")})
cintura_peso_01 <- do.call(c, list(peso_pearson_01, cintura_pearson_01))
max <- max(sapply(cintura_peso_01, length))
cintura_peso_01 <- do.call(rbind, lapply(cintura_peso_01, function(z) c(z, rep(NA, max-length(z)))))
How can I insert grupo_int_v00 in the syntax?
peso_pearson_01 <- lapply(my_data, function(x) {subset(dat$grupo_int_v00 == "A"), cor.test(x, my_data$d_peso1_v01, method = "pearson")})
Error: inesperado ',' in "lapply(my_data, function(x) {subset(dat$grupo_int_v00 == "A"),"
Thank you!