change cr_profile_main function name

EVS-GIS · Feb 15, 2024 · ca12b72 · ca12b72
1 parent 477001c
commit ca12b72
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 6 deletions.
diff --git 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
@@ -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
@@ -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 → man/cr_profile_main.Rd b/man/cr_section_main.Rd → man/cr_profile_main.Rd