R Notebook

# 1) Príprava: skontroluj balík rmarkdown
if (!requireNamespace("rmarkdown", quietly = TRUE)) {
  install.packages("rmarkdown")
}

# 2) Vytvorenie R Markdown súboru s gradientovým pozadím
rmd_path <- "tim-cook-essay.Rmd"

writeLines(c(
"---",
"title: \"Hľadať zmysel v službe ľudstvu\"",
"author: \"Natália Nádaská\"",
"date: \"2025-10-24\"",
"output:",
"  html_document:",
"    toc: false",
"    theme: null",
"    highlight: null",
"    df_print: paged",
"---",
"",
"<style>",
"/* Jemný vertikálny gradient na pozadí + čistá typografia */",
"html, body { height: 100%; }",
"body {",
"  margin: 0; padding: 2rem;",
"  font-family: -apple-system, BlinkMacSystemFont, 'Segoe UI', Roboto, Helvetica, Arial, 'Noto Sans', sans-serif;",
"  line-height: 1.6;",
"  background: linear-gradient(180deg, #f6f9ff 0%, #eef2ff 40%, #fff 100%);",
"}",
"h1, h2, h3 { font-weight: 700; letter-spacing: 0.3px; color: #0f172a; }",
"mark { background: #fff3bf; }",
"blockquote {",
"  border-left: 4px solid #334155; padding-left: 12px;",
"  color: #334155; font-style: italic; background: rgba(15,23,42,0.03);",
"}",
"hr { border: none; height: 1px; background: #e2e8f0; }",
".smallcaps { font-variant: small-caps; color: #475569; }",
".card {",
"  background: white; border-radius: 14px; padding: 1.2rem 1.4rem;",
"  box-shadow: 0 8px 24px rgba(2,6,23,0.06), 0 3px 8px rgba(2,6,23,0.04);",
"}",
"</style>",
"",
"# Hľadať zmysel v službe ľudstvu",
"<em class='smallcaps'>Inšpirované prejavom Tima Cooka na MIT (2017)</em>",
"",
"> “Technology alone is not enough. It’s technology married with the liberal arts and the humanities that makes our hearts sing.” — **Tim Cook**",
"",
"## Esej (5–10 riadkov s pridanou hodnotou)",
"<div class='card'>",
"Technológia bez ľudskosti je ako loď bez kompasu — pohybuje sa, no nevie kam.  ",
"Cookov odkaz pre mňa nie je o rýchlosti inovácií, ale o ich <mark>smerovaní</mark>.  ",
"Skutočné „prečo“ sa nezjaví v ďalšej povýšenej roli, ale v rozhodnutí slúžiť ľuďom tam, kde sme práve teraz.  ",
"Ak meriam svoju cestu číslami, uniká mi to, čo sa nedá zrátať: dôstojnosť, nádej, blízkosť.  ",
"Úlohou technológií je zosilniť empatiu — nie egá; zjednocovať, nie rozdeľovať.  ",
"Až v spojení s humanitnými vedami sa z nástrojov stávajú mosty.  ",
"Preto si dávam praktickú otázku pred každým projektom: *Koho tým posilním a ako to viem zistiť v reálnom živote?*  ",
"Ak odpoveď nenájdem, radšej spomalím — lebo neexistuje „progres“, ktorý si vyžaduje stratu ľudskosti.",
"</div>",
"",
"## Citáty do praxe",
"> “Measure your impact on humanity not in likes, but in the lives you touch.” — **Tim Cook**  ",
"",
"> “Technology alone is not enough.” — **Tim Cook**  ",
"",
"> “As Steve once said, technology married with the liberal arts and the humanities makes our hearts sing.” — **Tim Cook**",
"",
"> “Keep people at the center of what you do.” — **Tim Cook**",
"",
"## Moja preferencia",
"**Najviac preferujem:** “Measure your impact on humanity not in likes, but in the lives you touch.”  ",
"*Prečo:* Vytyčuje hranicu medzi kultúrou metrík a kultúrou hodnoty; posúva pozornosť z popularity na službu.",
"",
"---",
"",
"<sub>Pozn.: Dokument je vypracovaný pre RPubs ako Markdown s jemným vizuálnym štýlom a dôrazom na čitateľnosť.</sub>"
), rmd_path)

# 3) Render do HTML (pripravené na RPubs -> Publish)
html_out <- rmarkdown::render(rmd_path, output_format = "html_document")

  |                                                                        
  |                                                                  |   0%
  |                                                                        
  |..................................................................| 100%
                                                                                      
/usr/lib/rstudio-server/bin/quarto/bin/tools/x86_64/pandoc +RTS -K512m -RTS tim-cook-essay.knit.md --to html4 --from markdown+autolink_bare_uris+tex_math_single_backslash --output tim-cook-essay.html --lua-filter /cloud/lib/x86_64-pc-linux-gnu-library/4.5/rmarkdown/rmarkdown/lua/pagebreak.lua --lua-filter /cloud/lib/x86_64-pc-linux-gnu-library/4.5/rmarkdown/rmarkdown/lua/latex-div.lua --lua-filter /cloud/lib/x86_64-pc-linux-gnu-library/4.5/rmarkdown/rmarkdown/lua/table-classes.lua --embed-resources --standalone --section-divs --template /cloud/lib/x86_64-pc-linux-gnu-library/4.5/rmarkdown/rmd/h/default.html --no-highlight --mathjax --variable 'mathjax-url=https://mathjax.rstudio.com/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML' --include-in-header /tmp/Rtmppm5zXH/rmarkdown-str1931015348f.html 

# 4) Voliteľné: otvor HTML v prehliadači (RStudio/OS ho otvorí v default browseri)
try(browseURL(html_out), silent = TRUE)

# 5) Vypíš esej priamo do konzoly (ako „výstup“)
essay_lines <- c(
  "ESEJ — Hľadať zmysel v službe ľudstvu (Natália Nádaská)",
  "-----------------------------------------------------------------",
  "Technológia bez ľudskosti je ako loď bez kompasu — pohybuje sa, no nevie kam.",
  "Cookov odkaz pre mňa nie je o rýchlosti inovácií, ale o ich smerovaní.",
  "Skutočné „prečo“ sa nezjaví v ďalšej povýšenej roli, ale v rozhodnutí slúžiť ľuďom tam, kde sme práve teraz.",
  "Ak meriam svoju cestu číslami, uniká mi to, čo sa nedá zrátať: dôstojnosť, nádej, blízkosť.",
  "Úlohou technológií je zosilniť empatiu — nie egá; zjednocovať, nie rozdeľovať.",
  "Až v spojení s humanitnými vedami sa z nástrojov stávajú mosty.",
  "Pred každým projektom: Koho tým posilním a ako to zistím v reálnom živote?",
  "Ak odpoveď nenájdem, radšej spomalím — lebo neexistuje „progres“, ktorý si vyžaduje stratu ľudskosti."
)
cat(paste(essay_lines, collapse = "\n"))

ESEJ — Hľadať zmysel v službe ľudstvu (Natália Nádaská)
-----------------------------------------------------------------
Technológia bez ľudskosti je ako loď bez kompasu — pohybuje sa, no nevie kam.
Cookov odkaz pre mňa nie je o rýchlosti inovácií, ale o ich smerovaní.
Skutočné „prečo“ sa nezjaví v ďalšej povýšenej roli, ale v rozhodnutí slúžiť ľuďom tam, kde sme práve teraz.
Ak meriam svoju cestu číslami, uniká mi to, čo sa nedá zrátať: dôstojnosť, nádej, blízkosť.
Úlohou technológií je zosilniť empatiu — nie egá; zjednocovať, nie rozdeľovať.
Až v spojení s humanitnými vedami sa z nástrojov stávajú mosty.
Pred každým projektom: Koho tým posilním a ako to zistím v reálnom živote?
Ak odpoveď nenájdem, radšej spomalím — lebo neexistuje „progres“, ktorý si vyžaduje stratu ľudskosti.