Ed Zarek
December 26, 2015
OVERVIEW
INSTRUCTIONS FOR USE
library("shiny")
shinyServer(function(input, output) {
output$text1 <- renderText({
paste("You have selected", input$temp1, "degrees Farenheit")
})
output$text2 <- renderText({
paste(
"The temperature in degrees Celsius is:", signif((input$temp1 - 32) * (5 /
9),digits = 0), "degrees"
)
})
})
shinyUI(fluidPage(
titlePanel("Farenheit to Celsius Conversion"),
sidebarLayout(
position = "right",
sidebarPanel(
helpText("Enter temperature in degrees Farenheit."),
numericInput(
'temp1','Degrees Farenheit',0,min = -25,max = 100,step = 1
)
),
mainPanel(textOutput("text1"),
textOutput("text2"))
)
))
<!–html_preserve–>