diff --git a/R/mod_classification_manual.R b/R/mod_classification_manual.R index 852ff42..b6af572 100644 --- a/R/mod_classification_manual.R +++ b/R/mod_classification_manual.R @@ -20,15 +20,12 @@ mod_classification_manual_ui <- function(id){ golem_add_external_resources(), useShinyjs(), fluidRow( - style = "margin-top: 20px;", + style = "margin-top: 10px;", textOutput(ns("metric_placeholder_descriptionUI")) ), fluidRow( uiOutput(ns("metric_selectUI")) ), - fluidRow( - textOutput(ns("metric_descriptionUI")) - ), fluidRow( uiOutput(ns("classificationUI")) ) @@ -59,7 +56,6 @@ mod_classification_manual_server <- function(id, con, r_val){ r_val_local <- reactiveValues( metric_placeholder_description = "Cliquez sur une région hydrographique pour afficher la classification de métriques. ", ui_metric = NULL, # metric selection element - metric_description = NULL, # information on selected metric # classification classification_ui = NULL, # UI placeholder @@ -93,11 +89,6 @@ mod_classification_manual_server <- function(id, con, r_val){ } }) - # text displaying info of metric - output$metric_descriptionUI <- renderText({ - r_val_local$metric_description - }) - # classification UI enabling creation of different classes based on selected metric output$classificationUI <- renderUI({ r_val_local$classification_ui @@ -140,9 +131,6 @@ mod_classification_manual_server <- function(id, con, r_val){ selected = params_get_metric_choices()[1], width = "100%") - # create metric description - r_val_local$metric_description = r_val$selected_metric_description - # create classification UI r_val_local$classification_ui <- fluidPage( fluidRow( diff --git a/man/fct_table_create_table_df.Rd b/man/fct_table_create_table_df.Rd index cc9d74c..80f4f15 100644 --- a/man/fct_table_create_table_df.Rd +++ b/man/fct_table_create_table_df.Rd @@ -9,9 +9,9 @@ fct_table_create_table_df(region_pivot, axis_pivot, dgo_pivot) \arguments{ \item{region_pivot}{pivoted df from selected regional network} -\item{axis_sf}{sf object of dgos from selected axis network} +\item{axis_pivot}{pivoted df from selected axis network} -\item{dgo_sf}{sf object of selected dgo} +\item{dgo_pivot}{pivoted df from selected dgo} } \value{ dataframe with metrics as rows