diff --git a/NAMESPACE b/NAMESPACE
index 01759ff..5f7d077 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -2,7 +2,7 @@
 
 export("%>%")
 export(cr_profile_empty)
-export(cr_section_main)
+export(cr_profile_main)
 export(data_get_axis)
 export(data_get_axis_start_end)
 export(data_get_bassins)
diff --git a/R/fct_cr_profile.R b/R/fct_cr_profile.R
index 46fabae..3d6fbba 100644
--- a/R/fct_cr_profile.R
+++ b/R/fct_cr_profile.R
@@ -40,7 +40,7 @@ cr_profile_empty <- function() {
 #'
 #' @return plotly cross section plot.
 #' @export
-cr_section_main <- function(data){
+cr_profile_main <- function(data){
   section <- plot_ly(data = data, x = ~distance, y = ~profile, type = 'scatter',
                      yaxis = 'y1', key = data$id, # the "id" column for hover text
                      mode = 'lines+markers', fill = 'tozeroy', fillcolor = '#B0B0B0',
diff --git a/R/mod_explore.R b/R/mod_explore.R
index 66f2c7b..391d9a3 100644
--- a/R/mod_explore.R
+++ b/R/mod_explore.R
@@ -541,7 +541,7 @@ mod_explore_server <- function(id, con){
         r_val$data_section = data_get_elevation_profiles(selected_dgo_fid = input$exploremap_shape_click$id,
                                                          con = con)
         # plot cross section
-        r_val$section = cr_section_main(data = r_val$data_section)
+        r_val$section = cr_profile_main(data = r_val$data_section)
         # get dgo clicked feature
         r_val$data_dgo_clicked = r_val$dgo_axis %>%
           filter(fid == input$exploremap_shape_click$id)
diff --git a/man/cr_section_main.Rd b/man/cr_profile_main.Rd
similarity index 83%
rename from man/cr_section_main.Rd
rename to man/cr_profile_main.Rd
index b372bce..26bac05 100644
--- a/man/cr_section_main.Rd
+++ b/man/cr_profile_main.Rd
@@ -1,10 +1,10 @@
 % Generated by roxygen2: do not edit by hand
 % Please edit documentation in R/fct_cr_profile.R
-\name{cr_section_main}
-\alias{cr_section_main}
+\name{cr_profile_main}
+\alias{cr_profile_main}
 \title{Create a cross section plot for selected DGO data.}
 \usage{
-cr_section_main(data)
+cr_profile_main(data)
 }
 \arguments{
 \item{data}{data.frame elevation profiles from selected dgo.}