inst/marzone/global.R

In mattwatts/marxanui: Marxan User Interfaces

# marxan.io Run Marxan

cat(paste0("hello\n"))
cat(paste0(getwd(),"\n"))

sAppServer <<- "marxan.net"
sAppDir <<- getwd()

sShinyPath <<- Sys.getenv("HOME")
sShinyUserPath <<- paste0(sShinyPath,"/marxanui/")
sShinyLogPath <<- paste0(sShinyPath,"/marxanui/log/")
sShinyDataPath <- paste0(sShinyPath,"/marxanui/data/")
sShinyTempPath <<- paste0(sShinyPath,"/marxanui/temp/")
sUserGuide <<- "Marxan_io_rev39_user_guide.pdf"

# where are the apps stored?
if (.Platform$pkgType == "source")
{
  # Linux
  
} else {
  if (.Platform$pkgType == "win.binary")
  {
    # Windows
    sAppPath <<- "f:/marxanui"
  } else {
    # Mac
    sAppPath <<- "/Users/matt/Documents/R/marxanui"
  }
}
sShinySourcePath <<- paste0(sAppPath,"/source/")

sDatabase <<- ""
sMarxanDir <<- ""
irefreshinput <<- 0
irefreshmrun <<- 0
isavetargetspf <<- 0
sSampleMarZoneDataset <<- "RottnestIsland_Scenario4"
sSelectDb <<- sSampleMarZoneDataset
iSpecDatRows <<- 0
iCores <<- 10
iRepsPerCore <<- 10

irefreshmap <<- 0
irefreshtable <<- 0
irefreshcluster <<- 0

iZones <<- 2
ZoneNames <<- c("Available","Reserved")
iAspectX <<- 1
iAspectY <<- 1
fZoomToLimits <<- TRUE
fLeafletRdata <<- FALSE
fEnableLeaflet <<- FALSE
fEnableMap <<- FALSE
fLeafletGenerated <<- FALSE
iZoom <<- 0
iBounds <<- 0

height_jscode <<-'
    $(document).on("shiny:connected", function(e) {
        var jsHeight = window.innerHeight;
        Shiny.onInputChange("GetScreenHeight",jsHeight);
    });
    '

width_jscode <<-'
    $(document).on("shiny:connected", function(e) {
        var jsWidth = window.innerWidth;
        Shiny.onInputChange("GetScreenWidth",jsWidth);
    });
    '

resize_jscode <<- '
    function resizedw(){
        var jsWidth = window.innerWidth;
        var jsHeight = window.innerHeight;
        var obj = {width: jsWidth, height: jsHeight};
        Shiny.onInputChange("GetResize", obj);
    }

    var doit;
    window.onresize = function(){
      clearTimeout(doit);
      doit = setTimeout(resizedw, 5000);
    };
    '

iHeight <<- 600
iWidth <<- 600
iPlotHeight <<- 400
iPlotWidth <<- 400
iAspectHeight <<- 600
iAspectWidth <<- 600
iRefreshAspectHeight <<- 600
iRefreshAspectWidth <<- 600
fLeafletHidden <<- TRUE
fMarxanHidden <<- TRUE
irefreshaspectwidth <<- 0
irefreshaspectheight <<- 0
irefreshscreenheight <<- 0
irefreshmarxanmap <<- 0

fLocalUser <<- TRUE