describir medidas

Author: JFormoso

app.R

@@ -57,32 +57,32 @@ server <- function(input, output, session) {
 
            "mass" = tagList(
              fluidRow(
-               column(6, numericInput("concentration", "Concentration:", value = 1, min = 0)),
+               column(6, numericInput("concentration", "Concentration", value = 1, min = 0)),
                column(6, selectInput("concentration_unit", "Unit", 
-                                     choices = c("nM" = "nM", "µM" = "uM", "mM" = "mM", "M" = "M")))
+                                     choices = c("nM (nanomolar)" = "nM", "µM (micromolar)" = "uM", "mM (millimolar)" = "mM", "M (molar)" = "M")))
              ),
              fluidRow(
-               column(6, numericInput("volume", "Volume:", value = 1, min = 0)),
+               column(6, numericInput("volume", "Volume", value = 1, min = 0)),
                column(6, selectInput("volume_unit", "Unit", 
-                                     choices = c("µL" = "uL", "mL" = "mL", "L" = "L")))
+                                     choices = c("µL (microliter)" = "uL", "mL (milliliter)" = "mL", "L (liter)" = "L")))
              )
            ),
 
            "volume" = tagList(
-             numericInput("mass", "Mass (g):", value = 1, min = 0),
+             numericInput("mass", "Mass (g)", value = 1, min = 0),
              fluidRow(
-               column(6, numericInput("concentration", "Concentration:", value = 1, min = 0)),
+               column(6, numericInput("concentration", "Concentration", value = 1, min = 0)),
                column(6, selectInput("concentration_unit", "Unit", 
-                                     choices = c("nM" = "nM", "µM" = "uM", "mM" = "mM", "M" = "M")))
+                                     choices = c("nM (nanomolar)" = "nM", "µM (micromolar)" = "uM", "mM (millimolar)" = "mM", "M (molar)" = "M")))
              )
            ),
 
            "molarity" = tagList(
-             numericInput("mass", "Mass (g):", value = 1, min = 0),
+             numericInput("mass", "Mass (g)", value = 1, min = 0),
              fluidRow(
-               column(6, numericInput("volume", "Volume:", value = 1, min = 0)),
+               column(6, numericInput("volume", "Volume", value = 1, min = 0)),
                column(6, selectInput("volume_unit", "Unit", 
-                                     choices = c("µL" = "uL", "mL" = "mL", "L" = "L")))
+                                     choices = c("µL (microliter)" = "uL", "mL (milliliter)" = "mL", "L (liter)" = "L")))
              )
            )
     )

rsconnect/shinyapps.io/jformoso/solutions_calculator.dcf

@@ -5,7 +5,7 @@ account: jformoso
 server: shinyapps.io
 hostUrl: https://api.shinyapps.io/v1
 appId: 14534199
-bundleId: 10122283
+bundleId: 10122361
 url: https://jformoso.shinyapps.io/solutions_calculator/
 version: 1
 asMultiple: FALSE