Bilişim dünyasına kaliteli, özgün ve Türkçe içerikler kazandırmayı hedefleyen bir platform..

PDF SPLIT

setwd("C:/Users/mahmut/OneDrive/Desktop/dosya")
getwd()
# qpdf paketini kur
install.packages("pdftools")
library(pdftools)

# PDF dosyasını oku
pdf_file <- "ana.pdf"

# Toplam sayfa sayısını öğren
n_pages <- pdf_info(pdf_file)$pages
n_pages

# 1. bölüm (1–272)
pdf_subset(pdf_file, pages = 1:272, output = "bolum1.pdf")

# 2. bölüm (273–n_pages)
pdf_subset(pdf_file, pages = 273:n_pages, output = "bolum2.pdf")
# 3. sayfadan sonra böl

PDF MERGE

setwd("C:/Users/mahmut/OneDrive/Desktop/dosya")
getwd()
# Gerekli paketi kur
install.packages("qpdf")
library(qpdf)

# Birleştirilecek PDF dosyaları
pdf_list <- c("bolum1.pdf", "ara.pdf", "bolum2.pdf")

# Çıktı dosyası
pdf_combine(input = pdf_list, output = "birlestirildi.pdf")