在第一个打开括号和最后一个括号之间获取字符串

Question

我需要在第一个括号的位置和最后一个括号的位置之间获取字符串，然后在这些括号之间创建一个str_replace，最后爆炸以使用逗号分隔字段

类似的东西：

history <- model %>% fit_generator(train_generator, steps_per_epoch = 100, epochs = 30, validation_data = validation_generator, validation_steps = 50)



jpeg(filename="figuras/history.jpg")
plot(history)
dev.off()

要调用的函数必须获取字符串的这一部分。 （if（isnull（table.id _），1，table.id_））然后：

$string = field1,field2,(if(isnull(table.id_),1,table.id_)) as field3,field4;

我希望得到 - ＆gt; （if（isnull（table.id _），1，table.id _））＆lt; -
不是 - ＆gt; （if（isnull（table.id _）＆lt; - ，1，table.id _））

$string_btwn_parenthesis = [(if(isnull(table.id_),1,table.id_))]; <- obtained by function