-
Notifications
You must be signed in to change notification settings - Fork 0
/
global.R
41 lines (36 loc) · 1.08 KB
/
global.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
library(RPostgres)
library(dbplyr)
library(dplyr)
library(DT)
library(shinycssloaders)
library(stringr)
library(shiny)
library(bslib)
library(shinyhelper)
library(plotly)
library(sf)
library(leaflet)
source("R/input_selector.R")
####### RPostgres#########
Sys.setenv(PGGSSENCMODE = "disable")
con <- dbConnect(
RPostgres::Postgres(),
dbname = 'postgres',
host = 'localhost',
port = 5432,
user = 'postgres',
password = 'admin'
)
# create fonctions table
query_fonc <- 'SELECT * FROM "bnvds"."unique_fonction_qsa_2020"'
u_fonc <- data.frame(dplyr::tbl(con, dplyr::sql(query_fonc)))
# create classification table
query_class <-
'SELECT * FROM "bnvds"."unique_classification_qsa_2020"'
u_class <- data.frame(dplyr::tbl(con, dplyr::sql(query_class)))
# create substance table
query_subs <- 'SELECT * FROM "bnvds"."unique_substance_qsa_2020"'
u_subs <- data.frame(dplyr::tbl(con, dplyr::sql(query_subs)))
# create landcover table
query_ocs <- 'SELECT * FROM "bnvds"."unique_ocs_qsa_2020"'
u_ocs <- data.frame(dplyr::tbl(con, dplyr::sql(query_ocs)))