Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Bug in local version? #50

Closed
Robinlovelace opened this issue May 22, 2015 · 1 comment
Closed

Bug in local version? #50

Robinlovelace opened this issue May 22, 2015 · 1 comment

Comments

@Robinlovelace
Copy link
Member

Getting this error in my local version - any ideas?

Warning in run(timeoutMs) :
  Unhandled error in observer: Geographical CRS Warning in run(timeoutMs) :
  Unhandled error in observer: Geographical CRS given to non-conformant data: -594.84375  590.62500
observe({
    LA <- findLA()
    dataDir <- file.path("..", "pct-data", LA)
    if (input$advanced) 
        updateSelectInput(session, "zone_attr", label = "Flow Attribute", 
            choices = attrsZone)
    else updateSelectInput(session, "zone_attr", label = "Attribute to display", 
        choices = attrsLine)
    if (!is.null(helper$scenarioWas)) {
        updateSelectInput(session, "scenario", selected = helper$scenarioWas)
        helper$scenarioWas <<- NULL
    }
    if (helper$dataDir != dataDir && !is.null(LA) && file.exists(dataDir)) {
        helper$dataDir <<- dataDir
        helper$scenarioWas <<- input$scenario
        helper <<- loadData(helper)
        if (input$freeze) 
            updateCheckboxInput(session, "freeze", value = F)
        if (input$scenario != "olc") 
            updateSelectInput(session, "scenario", selected = "olc")
        else updateSelectInput(s [... truncated]given to non-conformant data: -594.84375  590.62500
observe({
    LA <- findLA()
    dataDir <- file.path("..", "pct-data", LA)
    if (input$advanced) 
        updateSelectInput(session, "zone_attr", label = "Flow Attribute", 
            choices = attrsZone)
    else updateSelectInput(session, "zone_attr", label = "Attribute to display", 
        choices = attrsLine)
    if (!is.null(helper$scenarioWas)) {
        updateSelectInput(session, "scenario", selected = helper$scenarioWas)
        helper$scenarioWas <<- NULL
    }
    if (helper$dataDir != dataDir && !is.null(LA) && file.exists(dataDir)) {
        helper$dataDir <<- dataDir
        helper$scenarioWas <<- input$scenario
        helper <<- loadData(helper)
        if (input$freeze) 
            updateCheckboxInput(session, "freeze", value = F)
        if (input$scenario != "olc") 
            updateSelectInput(session, "scenario", selected = "olc")
        else updateSelectInput(s [... truncated]

@Robinlovelace
Copy link
Member Author

Was a data issue

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

1 participant