fixed celsius spelling

rrohwer · Aug 23, 2019 · 62604a5 · 62604a5
1 parent d1a6d2d
commit 62604a5
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git 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
@@ -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
@@ -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(),