R Shiny app - 用户根据方程输入值和输出

Question

I want to create a simple app whereby users input two values (pH and Temperature) and an output is generated based on the equation - Log₁₀(Activity)=3.202651+2.34307(ph)+0.061192(Temp)-1.008796(ph * Temp)-0.789125(ph²)-0.001125(Temp²)+1.000252(ph * Temp²)+1.2(ph³).

Would anyone know the best way to do this?

Answer 1

Try this app. Check carefully the equation parameters in server function because thats not my strong side.

library(shiny)

ui <- fluidPage(


    titlePanel("Equation Name"),


    sidebarLayout(
        sidebarPanel(
            numericInput(
                inputId = "t",
                label = "Temperature value",
                value = 1,
                min = NA,
                max = NA,
                step = NA,
                width = NULL
            ),
            numericInput(
                inputId = "ph",
                label = "ph value ",
                value = 1,
                min = NA,
                max = NA,
                step = NA,
                width = NULL
            ),
        ),

        mainPanel(h1("Result"),
           textOutput("result")
        )
    )
)


server <- function(input, output) {
    
    output$result <- renderText({
        as.character(
            log10(3.202651+ 
                      (input$ph * 43307) +
                      (0.061192*input$t) - 
                      (1.008796 * input$ph * input$t) - 
                      (0.789125*(input$ph**2)) -
                      (0.001125 *(input$t**2)) +
                      (1.0002352 *(input$ph * (input$t**2)))+
                      (1.2*(input$ph**3)))
        )
    })
    
 
    
}

# Run the application 
shinyApp(ui = ui, server = server)