some cleaning

Strategies.csv

@@ -0,0 +1,7 @@
+ID,Strategy_Name,Basic_Principle,Entry_Rule,Exit_Rule,Market_Ineficiency
+33,FALCON_A,Trade Eucledian kNN. Entry using cross_macd and calculated probabilities to enter using kNN machine learning,When MACD indicator changing direction,When MACD indicator changing direction,Ranging market
+34,FALCON_C,Recognized market with AI. Keep direction as bullish or bearish. When ranging calm do not trade.,Moving Average cross over system. Aided by AI guess on Market Status,Keltner channels moving in unfavorable direction,Trending Market
+18,FALCON_B,Trading Template. Main goal is to generate trades and use them for Trading Journal,Moving Average cross over system,Keltner channels moving in unfavorable direction,Trending Market
+35,FALCON_R,Capturing reverting ranging markets,"Sell: SuperSmoother crosses Keltner Channels from Top;
+Buy: SupSmooth crosses Keltner Channels from Bottom","Price goes against Keltner channel with bigger multiplier;
+Price hit take profit which is either: 3x more than stop loss or we go and cross opposite side of the channel",

server.R

@@ -5,11 +5,12 @@
 
 
 library(shinydashboard)
-library(tidyverse)
+library(readr)
+library(lazytrade)
 library(lubridate)
 library(readxl)
 library(DT)
-library(xlsx)
+
 
 #=============================================================
 #========= FUNCTIONS AND VARIABLES============================
@@ -44,7 +45,7 @@ Pairs = c("Date", "EURUSD", "GBPUSD", "AUDUSD", "NZDUSD", "USDCAD", "USDCHF", "U
 names(prices) <- Pairs
 # -------------------------------
 # Load tables with trading strategies
-Strategies <- read_excel("Strategies.xlsx",sheet = 1,col_names = TRUE)
+Strategies <- read_csv("Strategies.csv")
 Strategies$ID <- as.factor(Strategies$ID)
 # -------------------------------
 # function that write data to csv file