I have a very simple Shiny.
For some reason I get the errors
Error in formatNoSci(value) : argument "value" is missing, with no default
and
Error in force(ui) : object 'ui' not found
.
I've googled these errors and can't find anything.
I can deduce that the ui
isn't getting built for some reason, but I don't know why and I have no clue what formatNoSci
does.
DF_custs <- data.frame(ID=c(1,2,3,3), val=c(10, 20, 100, 200))
## app.R ##
server <- function(input, output) {
get_cust <- reactive({
cust <- DF_custs[which(DF_custs$ID == input$num), ]
return(cust$val)})
output$result <- renderText({
ans <- get_cust()
paste("You chose: ", ans)})
}
ui <- fluidPage(
numericInput(inputId="num", label="Pick an ID: "),
fluidRow(
column(1,
fluidRow(
wellPanel(
mainPanel(textOutput("result"))))))
)
shinyApp(ui = ui, server = server)
Any advice would be greatly appreciated.