Demo/Shiny.R

In Chen2357/rrinterp: Interpolation with minimum and maximum constraints

library(shiny)

ui <- fluidPage(
    sidebarLayout(
        sidebarPanel(
            textInput("xvalue", "Enter x values", placeholder = "1,2,3,4,5,6"),
            textInput("yvalue", "Enter y values", placeholder = "1,2,3,4,5,6"),
            textInput("slopes", "Enter slopes", placeholder = ""),
            textInput("upper", "Upper Bound", placeholder = "10"),
            textInput("lower", "Low Bound", placeholder = "-10"),
            actionButton("go" ,"Interpolate", class = "btn btn-primary"),
            actionButton("view" ,"View", class = "btn btn-primary"),
            actionButton("stop", "Stop")
        ),
        mainPanel( 
            withMathJax(),
            tags$h2("Range Restricted \\(C^2\\) Interpolation"),
            plotOutput("plot")
        )
    )
)

server <- function(input, output) {

    interpolate <- eventReactive(input$go, {
        x <- as.numeric(unlist(strsplit(input$xvalue,",")))
        y <- as.numeric(unlist(strsplit(input$yvalue,",")))
        k <- as.numeric(unlist(strsplit(input$slopes,",")))
        high <- as.numeric(input$upper)
        low <- as.numeric(input$lower)

        if (length(k) == 0) {
            interpolation <- rrinterpolate(x, y, low, high)
        } else {
            interpolation <- rrinterpolate.slope(x, y, k, low, high)
        }

        rrplot(interpolation, x = x, y = y, limits = c(low, high), autodiff = TRUE)
    })

    observeEvent(input$view, {
        x <- as.numeric(unlist(strsplit(input$xvalue,",")))
        y <- as.numeric(unlist(strsplit(input$yvalue,",")))
        k <- as.numeric(unlist(strsplit(input$slopes,",")))
        high <- as.numeric(input$upper)
        low <- as.numeric(input$lower)

        if (length(k) == 0) {
            interpolation <- rrinterpolate(x, y, low, high)
        } else {
            interpolation <- rrinterpolate.slope(x, y, k, low, high)
        }

        View(interpolation)
    })

    output$plot <- renderPlot({
        interpolate()
    })

    observeEvent(input$stop, {
        stopApp()
    })
}

shinyApp(
    ui = ui,
    server = server
)