Commit 484f729b authored by gross47's avatar gross47
Browse files

Clean up folders and files

parent 4705c17a
library(shiny)
ui <- source("./ui.R")
server <- source("./server.R")
shinyApp(ui = ui, server = server)
\ No newline at end of file
name: app_1
title:
username:
account: vongross
server: shinyapps.io
hostUrl: https://api.shinyapps.io/v1
appId: 2497524
bundleId: 3311994
url: https://vongross.shinyapps.io/app_1/
when: 1593017851.0568
asMultiple: FALSE
asStatic: FALSE
name: applicationOfThePackage
title: applicationOfThePackage
username:
account: vongross
server: shinyapps.io
hostUrl: https://api.shinyapps.io/v1
appId: 2497473
bundleId: 3310870
url: https://vongross.shinyapps.io/applicationOfThePackage/
when: 1593001607.9347
asMultiple: FALSE
asStatic: FALSE
ignoredFiles: A|B|tt-frim-home.RData|3 performanceTest/applyPackage.R|1 simulateDataSource|2 applyOptimizations
#
# dat <- read_excel("database.xlsx", sheet = "data", col_names = FALSE)
#
# dataSource <- datainput(dat, uncertainty = "sd")
#
# dataSource <- dataSource %>% filter(branch == "Ecology" | branch == "Economics")
server <- function(input, output, session) {
......
......@@ -28,26 +28,15 @@ 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="Logo_TUM_GOE.jpg", height = "40px", width = "250px"), id = "navBar",
theme = "test.css",
......
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