This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
``` r | |
# A very simple script to simulate all possible investment windows for x years investment | |
# Investment in WIG20TR or WIG40TR | |
library(xts) | |
w20 <- read.csv(glue::glue("https://stooq.com/q/d/l/?s=wig20tr&i=d")) | |
w40 <- read.csv(glue::glue("https://stooq.com/q/d/l/?s=mwig40tr&i=d")) | |
w80 <- read.csv(glue::glue("https://stooq.com/q/d/l/?s=swig80tr&i=d")) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
import pyodide.http | |
from shiny import App, reactive, render, ui, req | |
from htmltools import TagList, div | |
from htmltools.tags import th, td, tr, thead, tbody, table, style, head, span, a | |
from re import compile, MULTILINE, split | |
fields = ["Title", "Version", "Author", "Description", "License", "URL", | |
"BugReports", "Encoding", "RoxygenNote", "Depends", "Imports", "LinkingTo", | |
"Suggests", "Enhance", "Config/testthat/edition", "VignetteBuilder", "NeedsCompilation", | |
"Packaged", "Repository", "Date/Publication"] |