Dox7
July 27, 2017
Description: Scatterplot with Square Root Function and Text
Includes the following input widgets:
Applies the function:
Produces the output:
function(input, output) {
output$scatterPlot <- renderPlot({
x <- runif(sqrt(input$obs))
y <- runif(sqrt(input$obs))
plot(x, y)
})
output$text <- renderText({
paste("Username:", input$text)
})
}
function(input, output) {
output$scatterPlot <- renderPlot({
x <- runif(sqrt(input$obs))
y <- runif(sqrt(input$obs))
plot(x, y)
})
output$text <- renderText({
paste("Username:", input$text)
})
}
Given an input using the provided slider and text box, the app generates a scatterplot consisting of a number of plots equal to the square root of the number of selected observations.
Thank you!