Commit d1746850 authored by gross47's avatar gross47
Browse files

Delete ui - Indonesien.R

parent 48e3cbc0
#---#################################################################---#
#### Try to apply the stepwise linear approach on the Indonesia Data ####
#---#################################################################---#
# Thu Oct 15 15:33:34 2020 ------------------------------
# Volker und Kai
# See /rProgramming/indonesienOptimierung/Kopie von 08082018_Opti_Indon_Kai.xlsx
# Hinweis: Diese Optimierung hier unterscheided sich in der Definition des adjusted SEM vom einfachen Excel Bsp.
# Die optimistische Ausprägung ist gleich dem Land-Use Score (also mean) und nicht wie im einfachen Bsp. mean + sem
# (bzw. mean - sem bei "less is more").
# Deshalb habe ich die Funktion, die das adjSEM berechnet nochmal speziell für diese Optimierung angepasst. Besprechungsbedarf: Soll das
# generisch werden oder ist es ein Einzelfall? (Bei Indonesien ist es wie bei Gosling et al.)
#-------------------------------#
#### Load data and functions ####
#-------------------------------#
source("initScenario.R")
source("calcDistanceToPerformanceScenario.R")
source("helper.R")
source("solveScenario.R")
source("functions.R")
library(lpSolveAPI)
library(tidyverse)
library(readxl)
library(writexl)
library(shiny)
library(rsconnect)
library(shinyWidgets)
library(stringr)
library(png)
library(shinyjs)
library(DT)
library(visNetwork)
library(rintrojs)
#-----------------#
#### Load data ####
#-----------------#
# dat <- read_excel("database.xlsx", sheet = "data", col_names = FALSE)
#
# dataSource <- datainput(dat, uncertainty = "sd")
#
# dataSource <- dataSource %>% filter(branch == "Ecology" | branch == "Economics")
ui <- navbarPage(title = img(src="Logos_1.png", height = "50px", width = "450px"), id = "navBar",
theme = "test.css",
# inverse = TRUE,
windowTitle = "Collaborative farm-model",
position = "fixed-top",
header = tags$style(
".navbar-right {
float: right !important;
}",
"body {padding-top: 75px;}"),
tabPanel("Home", value = "home",
shinyjs::useShinyjs(),
fluidRow(
HTML("
<section class='banner'>
<h2 class='parallax'>Collaborative farm model</h2>
<p class='parallax_description'>Jambi province</p>
</section>
")
),
fluidRow(
column(3),
column(6,
shiny::HTML("<br><br><center> <h1>What you'll find here</h1> </center><br>"),
shiny::HTML("<h5>Text</h5>")
),
column(3)
),
fluidRow(
style = "height:50px;"),
# PAGE BREAK
tags$hr(),
# HOW
fluidRow(
column(3),
column(6,
shiny::HTML("<br><br><center> <h1>How it can help you</h1> </center><br>"),
shiny::HTML("<h5>Text</h5>")
),
column(3)
),
fluidRow(
style = "height:50px;"),
# PAGE BREAK
tags$hr(),
# WHERE
fluidRow(
column(3),
column(6,
shiny::HTML("<br><br><center> <h1>Where it came from</h1> </center><br>"),
shiny::HTML("<h5>Text</h5>")
),
column(3)
),
fluidRow(
style = "height:50px;"),
# PAGE BREAK
tags$hr(),
# HOW TO START
fluidRow(
column(3),
column(6,
shiny::HTML("<br><br><center> <h1>How to get started</h1> </center><br>"),
shiny::HTML("<h5>Text.</h5>")
),
column(3)
)),
tabPanel("Upload file",
titlePanel("Uploading files"),
sidebarLayout(
sidebarPanel(
fileInput("file1", "Choose xlsx file", accept = ".xlsx"),
tags$br(),
checkboxInput('colnames', 'Colnames (experimental)', FALSE)
),
mainPanel(
tableOutput("contents")
)
)),
tabPanel(title = "Model",
headerPanel(""),
fluidRow(
column(4,
sidebarPanel(
checkboxGroupInput(inputId = "IndicatorGroups", "IndicatorGroups", "",
selected = "")
)),
column(6,
mainPanel(
plotOutput("plot1")
)),
column(2)),
tags$hr(),
fluidRow(
downloadButton('downloadPlot','Download Plot')
)
),
tabPanel(title = "About us")
)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment