如何重命名data.frame的标题？

我已经将一个.csv文件导入到R中。data.frame有126个变量和66000多个观察值。每个变量的列名由4部分组成，以|分隔

例如：infoRecurringCustomer | info | category | integer

如何创建一个函数，在第一个|之前为所有126个变量选择第一个部分？在我的示例中，只需选择infoRecurringCustomer。

strsplit函数将完成这项工作。 以下是一个例子：

## df is your dataframe with its variable names following your pattern 
names(df) <- c("infoRecurringCustomer|customer|info|information", "info|categorical|integer|infoRecurringCustomer", "categorical|infoRecurringCustomer|info|information")

## applying strsplit : split on the "|" and get the first element
splitted_var_names <- sapply(names(df), function(x) strsplit(x, "[|]", fixed = TRUE)[[1]][1])