This file contains 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
source("../code.R", chdir = TRUE) | |
library(testthat) | |
#testthat::test_dir("tests") | |
d_usd = 1-0.25 | |
d_eur = 1-0.2 | |
d_day = 0.5 | |
order <- readxl::read_xlsx("../data_test.xlsx", "columnas") |
This file contains 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
getDiscount <- function(currency.input, date.input) | |
{ # Computes the percentage of discount to apply based on date and currency | |
# | |
#Args: | |
# currency.input = character of the currency | |
# date.input = the current date | |
# | |
# Returns: | |
# The percentage of discount to apply on the sum of products |
This file has been truncated, but you can view the full file.
This file contains 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
<link rel="stylesheet" href="//maxcdn.bootstrapcdn.com/font-awesome/4.4.0/css/font-awesome.min.css"/> | |
<link href="https://fonts.googleapis.com/css?family=Roboto:400,500" rel="stylesheet"> | |
<div class="box1 "> | |
<div class="row"> | |
<div class = "col-xs-1 col-sm-4"> </div> <!--resize--> | |
<div class="col-xs-10 col-sm-4 container-fluid box2"> | |
<!-- quote--> | |
<div class = "row text-center" id="quote"> | |
<div class = "col-xs-12"> |
This file contains 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
{ | |
"quotes" : | |
[ | |
{"quote" :"Passion comes after you put in the hard work to become excellent at something valuable, not before. In other words, what you do for a living is much less important than how you do it.", | |
"author" : "Cal Newport" | |
}, | |
{"quote" : "Don't cry because it's over, smile because it happened.", | |
"author" : "Dr. Seuss" | |
}, | |
{"quote" : "I'm selfish, impatient and a little insecure. I make mistakes, I am out of control and at times hard to handle. But if you can't handle me at my worst, then you sure as hell don't deserve me at my best.", |