Skip to content

Instantly share code, notes, and snippets.

@lagerratrobe
Created June 25, 2020 01:42
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save lagerratrobe/611d50cc32994a32a9a1ee8600d01b29 to your computer and use it in GitHub Desktop.
```
---
title: "Address Validator"
output: flexdashboard::flex_dashboard
runtime: shiny
---
```{r global, include=FALSE}
# simple function that returns its input
GetAddress <- function (address) {
return(address)
}
```
Column {.sidebar}
-----------------------------------------------------------------------
```{r}
textInput("in_address", "Enter Address to Validate")
actionButton("submit", "submit")
```
Column
-----------------------------------------------------------------------
### Geocoder Response
```{r}
observeEvent(input$submit, {
renderText({
GetAddress(input$in_address)
})
})
```
2 3 / 3
@lagerratrobe
Copy link
Author

Does not work as written

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment