From 62604a53aaf111df98926918e79354b1383ff126 Mon Sep 17 00:00:00 2001
From: Atul Ingle <ingle.atul@gmail.com>
Date: Thu, 22 Aug 2019 19:50:05 -0500
Subject: [PATCH] fixed celsius spelling

---
 shinyPoseidon/plots/temp_profile_daily.R   | 2 +-
 shinyPoseidon/plots/temp_profile_heatmap.R | 6 +++---
 shinyPoseidon/ui-poseidon.R                | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/shinyPoseidon/plots/temp_profile_daily.R b/shinyPoseidon/plots/temp_profile_daily.R
index f54dceb..37663ee 100644
--- a/shinyPoseidon/plots/temp_profile_daily.R
+++ b/shinyPoseidon/plots/temp_profile_daily.R
@@ -14,7 +14,7 @@ my.ysi <- ysi[index, ]
 
 y.lim <- c(-65.6,0)
 
-if(input$TempPref == "Celcius"){
+if(input$TempPref == "Celsius"){
   t <- seq(from = 0, to = 25, length.out = 100)
   y <- -abs(x = 3.0 * sin(t))
   y <- y - min(y)
diff --git a/shinyPoseidon/plots/temp_profile_heatmap.R b/shinyPoseidon/plots/temp_profile_heatmap.R
index 740d764..d0027df 100644
--- a/shinyPoseidon/plots/temp_profile_heatmap.R
+++ b/shinyPoseidon/plots/temp_profile_heatmap.R
@@ -4,7 +4,7 @@ if(!exists("INAPP")){
   input <- list(NULL)
   input$chosen.year <- "2014"
   input$slider.day <- "Nov 9"
-  input$TempPref <- "Celcius"
+  input$TempPref <- "Celsius"
 }
 
 
@@ -16,7 +16,7 @@ heatmap.data$sample.date <- decimal_date(heatmap.data$sample.date)
 
 par(mar = c(4.5,3,2,0.5))
 
-if(input$TempPref=="Celcius") {
+if(input$TempPref=="Celsius") {
   valid.indexes = !is.na(heatmap.data$temp.C)
   heatmap.data <- interp(x = heatmap.data$sample.date[valid.indexes], y = heatmap.data$neg.depth[valid.indexes], z = heatmap.data$temp.C[valid.indexes], duplicate = "strip")
   image.plot(heatmap.data, axes = F, col = sequential_hcl(n = 20, palette = "plasma"),zlim=c(0,27))
@@ -43,7 +43,7 @@ axis(side = 2, at = seq(from = -65, to = 0, by = 5), labels = seq(from = -65, to
 my.date <- parse_date_time(x = paste(input$slider.day, input$chosen.year), orders = "mdy")
 abline(v=decimal_date(my.date),col='black',lwd=4,lty=2)
 
-if(input$TempPref=="Celcius") {
+if(input$TempPref=="Celsius") {
   mtext("deg C",side=4,line=4,cex=1.5)
 } else
 {
diff --git a/shinyPoseidon/ui-poseidon.R b/shinyPoseidon/ui-poseidon.R
index 7a4d0be..27aaf5f 100644
--- a/shinyPoseidon/ui-poseidon.R
+++ b/shinyPoseidon/ui-poseidon.R
@@ -15,7 +15,7 @@ ui <- fluidPage(
                           br(),
                           radioButtons(inputId = "TempPref",
                             label="Temperature Units:",
-                            choices = c("Celcius", "Fahrenheit"),
+                            choices = c("Celsius", "Fahrenheit"),
                             selected="Fahrenheit",
                             inline = TRUE),
                           br(),