forked from cezary-rosinski/Institute-of-Literary-Research
-
Notifications
You must be signed in to change notification settings - Fork 0
/
popc - test.Rmd
87 lines (62 loc) · 4.51 KB
/
popc - test.Rmd
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
---
title: "R Notebook"
output: html_notebook
---
```{r}
options(java.parameters = "-Xmx32000m")
options(scipen = 999)
pacman::p_load(googlesheets,zoo,openxlsx,stringr,splitstackshape,plyr,dplyr,sqldf,stringdist,fuzzyjoin,data.table,svMisc,tidyverse,RJDBC,xlsx,RJSONIO)
#jdbcDriver =JDBC("oracle.jdbc.OracleDriver",classPath="E:/Cezary/Documents/ojdbc6.jar")
#jdbcDriver =JDBC("oracle.jdbc.OracleDriver",classPath="C:/Users/cezar/Documents/R/ojdbc6.jar")
jdbcDriver =JDBC("oracle.jdbc.OracleDriver",classPath="C:/Users/Cezary/Downloads/ojdbc6.jar")
PBL <- dbConnect(jdbcDriver, "jdbc:oracle:thin:@//pbl.ibl.poznan.pl:1521/xe", "IBL_SELECT", "CR333444")
#wczytywanie kartotek PBL
redaktorzy_dzialow <- gs_read(gs_title("redaktorzy działów"))
redaktorzy_dzialow <- redaktorzy_dzialow %>%
select(DZ_DZIAL_ID, DZ_NAZWA, redaktor_dzialu)
PBL_dzialy <- dbReadTable(PBL,'PBL_DZIALY')
PBL_dzialy <- PBL_dzialy %>%
select(1,3,6)
PBL_dzialy_path <- merge(x = PBL_dzialy, y = PBL_dzialy, by.x = "DZ_DZ_DZIAL_ID", by.y = "DZ_DZIAL_ID", all.x = TRUE)
colnames(PBL_dzialy_path) <- c("NAD_DZ_DZIAL_ID", "DZ_DZIAL_ID", "DZ_NAZWA", "NAD_DZ_NAZWA", "NAD_NAD_DZ_DZIAL_ID")
PBL_dzialy_path <- merge(x = PBL_dzialy_path, y = PBL_dzialy, by.x = "NAD_NAD_DZ_DZIAL_ID", by.y = "DZ_DZIAL_ID", all.x = TRUE)
colnames(PBL_dzialy_path) <- c("NAD_NAD_DZ_DZIAL_ID", "NAD_DZ_DZIAL_ID", "DZ_DZIAL_ID", "DZ_NAZWA", "NAD_DZ_NAZWA", "NAD_NAD_DZ_NAZWA", "NAD_NAD_NAD_DZ_DZIAL_ID")
PBL_dzialy_path <- merge(x = PBL_dzialy_path, y = PBL_dzialy, by.x = "NAD_NAD_NAD_DZ_DZIAL_ID", by.y = "DZ_DZIAL_ID", all.x = TRUE)
colnames(PBL_dzialy_path) <- c("NAD_NAD_NAD_DZ_DZIAL_ID", "NAD_NAD_DZ_DZIAL_ID", "NAD_DZ_DZIAL_ID", "DZ_DZIAL_ID", "DZ_NAZWA", "NAD_DZ_NAZWA", "NAD_NAD_DZ_NAZWA", "NAD_NAD_NAD_DZ_NAZWA", "NAD_NAD_NAD_NAD_DZ_DZIAL_ID")
PBL_dzialy_path <- merge(x = PBL_dzialy_path, y = PBL_dzialy, by.x = "NAD_NAD_NAD_NAD_DZ_DZIAL_ID", by.y = "DZ_DZIAL_ID", all.x = TRUE)
colnames(PBL_dzialy_path) <- c("NAD_NAD_NAD_NAD_DZ_DZIAL_ID", "NAD_NAD_NAD_DZ_DZIAL_ID", "NAD_NAD_DZ_DZIAL_ID", "NAD_DZ_DZIAL_ID", "DZ_DZIAL_ID", "DZ_NAZWA", "NAD_DZ_NAZWA", "NAD_NAD_DZ_NAZWA", "NAD_NAD_NAD_DZ_NAZWA", "NAD_NAD_NAD_NAD_DZ_NAZWA", "NAD_NAD_NAD_NAD_NAD_DZ_DZIAL_ID")
PBL_dzialy_path <- merge(x = PBL_dzialy_path, y = PBL_dzialy, by.x = "NAD_NAD_NAD_NAD_NAD_DZ_DZIAL_ID", by.y = "DZ_DZIAL_ID", all.x = TRUE)
colnames(PBL_dzialy_path) <- c("NAD_NAD_NAD_NAD_NAD_DZ_DZIAL_ID", "NAD_NAD_NAD_NAD_DZ_DZIAL_ID", "NAD_NAD_NAD_DZ_DZIAL_ID", "NAD_NAD_DZ_DZIAL_ID", "NAD_DZ_DZIAL_ID", "DZ_DZIAL_ID", "DZ_NAZWA", "NAD_DZ_NAZWA", "NAD_NAD_DZ_NAZWA", "NAD_NAD_NAD_DZ_NAZWA", "NAD_NAD_NAD_NAD_DZ_NAZWA", "NAD_NAD_NAD_NAD_NAD_DZ_NAZWA", "NAD_NAD_NAD_NAD_NAD_NAD_DZ_DZIAL_ID")
lit_obce <- PBL_dzialy_path %>%
filter(NAD_NAD_NAD_NAD_DZ_DZIAL_ID==30|NAD_NAD_NAD_DZ_DZIAL_ID==30|NAD_NAD_DZ_DZIAL_ID==30|NAD_DZ_DZIAL_ID==30) %>%
select(DZ_DZIAL_ID,DZ_NAZWA) %>%
filter(!grepl("Hasła osobowe",DZ_NAZWA))
historia_lit <- PBL_dzialy_path %>%
filter(NAD_NAD_NAD_NAD_DZ_DZIAL_ID==21|NAD_NAD_NAD_DZ_DZIAL_ID==21|NAD_NAD_DZ_DZIAL_ID==21|NAD_DZ_DZIAL_ID==21) %>%
select(DZ_DZIAL_ID,DZ_NAZWA)
dydaktyka <- PBL_dzialy_path %>%
filter(NAD_NAD_NAD_NAD_DZ_DZIAL_ID==459|NAD_NAD_NAD_DZ_DZIAL_ID==459|NAD_NAD_DZ_DZIAL_ID==459|NAD_DZ_DZIAL_ID==459) %>%
select(DZ_DZIAL_ID,DZ_NAZWA)
lit_45 <- PBL_dzialy_path %>%
filter(NAD_NAD_NAD_NAD_DZ_DZIAL_ID==164|NAD_NAD_NAD_DZ_DZIAL_ID==164|NAD_NAD_DZ_DZIAL_ID==164|NAD_DZ_DZIAL_ID==164) %>%
select(DZ_DZIAL_ID,DZ_NAZWA)
lit_89 <- PBL_dzialy_path %>%
filter(NAD_NAD_NAD_NAD_DZ_DZIAL_ID==10643|NAD_NAD_NAD_DZ_DZIAL_ID==10643|NAD_NAD_DZ_DZIAL_ID==10643|NAD_DZ_DZIAL_ID==10643) %>%
select(DZ_DZIAL_ID,DZ_NAZWA)
zagadnienia <- PBL_dzialy_path %>%
filter(NAD_NAD_NAD_NAD_DZ_DZIAL_ID==174|NAD_NAD_NAD_DZ_DZIAL_ID==174|NAD_NAD_DZ_DZIAL_ID==174|NAD_DZ_DZIAL_ID==174) %>%
select(DZ_DZIAL_ID,DZ_NAZWA)
hasla_szczegolowe <- PBL_dzialy_path %>%
filter(NAD_NAD_NAD_NAD_DZ_DZIAL_ID==144|NAD_NAD_NAD_DZ_DZIAL_ID==144|NAD_NAD_DZ_DZIAL_ID==144|NAD_DZ_DZIAL_ID==144) %>%
select(DZ_DZIAL_ID,DZ_NAZWA)
zycie_literackie <- PBL_dzialy_path %>%
filter(NAD_NAD_NAD_NAD_DZ_DZIAL_ID==270|NAD_NAD_NAD_DZ_DZIAL_ID==270|NAD_NAD_DZ_DZIAL_ID==270|NAD_DZ_DZIAL_ID==270) %>%
select(DZ_DZIAL_ID,DZ_NAZWA)
pbl_records <- dbGetQuery(PBL,
"select z.za_zapis_id, dz.dz_dzial_id, z.za_ro_rok
from IBL_OWNER.pbl_zapisy z
join IBL_OWNER.pbl_dzialy dz on dz.dz_dzial_id=z.za_dz_dzial1_id
where z.za_ro_rok between 1989 and 1992")
nrow(merge(pbl_records,zycie_literackie,by = "DZ_DZIAL_ID")[1])
nrow(pbl_records[1])
```