Update texts and comments

Author: mcwimm

R_scripts/functions/fun_graphics.R

@@ -729,7 +729,7 @@ plot.sf.helper = function(data, ui.input, radial.profile = FALSE){
       }
 
    } else {
-      p = plot.emptyMessage(message = "Sapwood depth is missing (see 'Project settings')")
+      p = plot.emptyMessage(message = "Sapwood depth is missing (see 'Settings')")
    }
    return(p)
 }

R_scripts/functions/fun_ui_sap_flow.R

@@ -161,10 +161,8 @@ sfRateOutput <- function(){
                    box(title = "Settings",
                        collapsible = T, width = NULL,
                        status = "warning",
-                       
-                       p(strong("<Note>"), "The estimation of sap flow is based on
-                                        wood and sensor properties (see 'Project settings').
-                         If tree water use calculated with a specific method is 0, more information are required."),
+                       HTML("<b>Note:</b> The estimation of sap flow and tree water use is based on
+                       wood and sensor properties (see 'Settings')."),
 
                        checkboxInput("treeScaleSimple1", 
                                      "Method 1: Area of circular ring", F),
@@ -190,15 +188,15 @@ sfRateOutput <- function(){
                                              "Save figure", "saveFigure")),
                           tabPanel("Radial profile", br(),
                                    p("Note: radial profile is not available for scaling method 2."),
-                                   #p("Each point represents one day."),
                                    output.figure("TWUradialprofile"),
                                    actButton("save.TWUradialprofile",
                                              "Save figure", "saveFigure")))
 
                    ),
                    box(title = "Tree water use",
-                       p("Daily tree water use (in liter per day) estimated as the area under
-                     the curve (AUC) of the figure above, separated by flow direction (i.e. positive flow rates = transpiration, negative flow rates = reverse flow)."),
+                       p("Daily tree water use (in liter per day) is estimated as the area under
+                     the curve (AUC) of the figure above, separated by flow direction (i.e. positive flow
+                         rates = transpiration, negative flow rates = reverse flow)."),
                        p("Note: Incomplete data sets (e.g. half a day) might lead to an over- or underestimation."),
                        collapsible = T,
                        width = NULL,

server.R

@@ -28,9 +28,9 @@ shinyServer(function(input, output, session) {
     }
 
 
-    ########################
-    ### PROJECT SETTINGS ###
-    ########################
+    ################
+    ### SETTINGS ###
+    ################
 
     #### Variables ####
 
@@ -119,7 +119,7 @@ shinyServer(function(input, output, session) {
       NULL
     })
 
-    #' Show project path in Project Settings > Project
+    #' Show project path in Settings > Project
     #' if a project folder is selected
     output$prjDir <- renderPrint({
         cat(projectPath())
@@ -132,7 +132,7 @@ shinyServer(function(input, output, session) {
 
     #### Buttons ####
 
-    #' Button to create a project (Project Settings > Project)
+    #' Button to create a project (Settings > Project)
     #' Requires a folder to be selected (Folder select)
     #' If directory does not exist create two folders:
     #' 'csv-files', 'graphics'
@@ -279,7 +279,7 @@ shinyServer(function(input, output, session) {
     })
 
     #' Eventlistener to save thermometer depth table
-    #' (Project Settings > Measuring environment)
+    #' (Settings > Measuring environment)
     observeEvent(input$save.sensor_props, {
        save.csv(path = projectPath(), 
                 name = "sensor_props",