-
Notifications
You must be signed in to change notification settings - Fork 0
/
.Rhistory
43 lines (43 loc) · 2 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
library(shiny); runApp('ET_analytics.R')
df1 <- read.csv(input$file1$datapat,header = T,sep = ',', stringsAsFactors=FALSE, fileEncoding="latin1")
df1 <- read.csv(input$file1$datapat,header = T,sep = ',', stringsAsFactors=FALSE, fileEncoding="latin1")
input_data = "C:\Users\DASY\Downloads\web_devs\expenses_tracker_shiny\_data\18-07-2021 Expense_Data.csv"
input_data = "C:\Users\DASY\Downloads\web_devs\expenses_tracker_shiny\_data\18-07-2021 Expense_Data.csv"
input_data = "C:/Users/DASY/Downloads/web_devs/expenses_tracker_shiny/_data/18-07-2021 Expense_Data.csv"
df1 <- read.csv(input_data,header = T,sep = ',', stringsAsFactors=FALSE, fileEncoding="latin1")
colnames(df1)<-c("Designation","Costs","Date","Purchase") #Renommer les Champs de la table de donnees ("Designation","Prix","Date","Achat")
df1$Date<-convertToDate(df1$Date)
df1
View(df1)
save(df1, tailles, poids, file = "df1.RData")
save(df1,file = "df1.RData")
load("C:/Users/DASY/Downloads/web_devs/expenses_tracker_shiny/df1.RData")
load("C:/Users/DASY/Downloads/web_devs/expenses_tracker_shiny/df1.RData")
df1 = load("df1.RData")
df1 = load("df1.RData")
df1
df1 <- load("df1.RDATA")é
df1 <- load("df1.RDATA")
saveRDS(d, file = "df1.rds")
saveRDS(df1, file = "df1.rds")
input_data = "C:/Users/DASY/Downloads/web_devs/expenses_tracker_shiny/_data/18-07-2021 Expense_Data.csv"
df1 <- read.csv(input_data,header = T,sep = ',', stringsAsFactors=FALSE, fileEncoding="latin1")
colnames(df1)<-c("Designation","Costs","Date","Purchase") #Renommer les Champs de la table de donnees ("Designation","Prix","Date","Achat")
df1$Date<-convertToDate(df1$Date)
df1
saveRDS(df1, file = "df1.rds")
df2 <- readRDS("df1.rds")
View(df2)
df2 <- readRDS("df1.rds")
df3 <- load("df1.RDATA")
df3 <- load("df1.rds")
df3 <- load("df1.rds")
df2 <- readRDS("df1.rds")
#--Upload CSV Data File--
## input_data =
df1 <- readRDS("df1.rds", header = T,sep = ',', stringsAsFactors=FALSE, fileEncoding="latin1")
df1
runApp('ET_analytics.R')
runApp('ET_analytics.R')
runApp('ET_analytics.R')
runApp('ET_analytics.R')