https://padlet.com/JafriAM/LWJ2 Pelbagai perkongsian maklumat dan tutorial berkenaan tool aplikasi bagi memudahkan kerja harian anda en-us 2018-07-23 03:59:11 UTC 2025-10-04 13:45:27 UTC hello@padlet.com JafriAM https://padlet.com/JafriAM/LWJ2/wish/270835826


]]> 2018-07-23 04:04:36 UTC https://padlet.com/JafriAM/LWJ2/wish/270835826 JafriAM https://padlet.com/JafriAM/LWJ2/wish/270848718 Ada banyak aplikasi web yang boleh dirujuk. Disini saya berikan beberapa:
1. bit.do
2. goo.gl
3. bitly.com

Kredit
http://www.prospekdigital.com]]> 2018-07-23 07:25:11 UTC https://padlet.com/JafriAM/LWJ2/wish/270848718 JafriAM https://padlet.com/JafriAM/LWJ2/wish/270850106 http://bit.do/PDFCombine]]> 2018-07-23 07:50:58 UTC https://padlet.com/JafriAM/LWJ2/wish/270850106 JafriAM https://padlet.com/JafriAM/LWJ2/wish/273371857 #Sum dan listkan by group 
aggregate(MasterDBInterim$AMAUN, by=list(MasterDBInterim$TAHUN), FUN=sum)

#Sum dengan satu condition
sum(MasterDBInterim$AMAUN[which(MasterDBInterim$TAHUN=="2016")])

#typeof(NewDBHasil2014$Tahun)

#Tambah New column dan Value TAHUN ke dataframe
NewDBHasil2014 <- mutate(DBHasil2014, Tahun = 2014)
NewDBHasil2015 <- mutate(DBHasil2015, Tahun = 2015)
NewDBHasil2016 <- mutate(DBHasil2016, Tahun = 2016)
NewDBHasil2017 <- mutate(DBHasil2017, Tahun = 2017)


#Tukar nama Column/standardkan

NewDBHasil2014 <- setNames(NewDBHasil2014, c("JAB","KOD_HASIL","DEBIT","KREDIT","SEBENAR","COUNT","PRCTR","HKONT","TAHUN"))
NewDBHasil2015 <- setNames(NewDBHasil2015, c("JAB","KOD_HASIL","DEBIT","KREDIT","SEBENAR","COUNT","PRCTR","HKONT","TAHUN"))
NewDBHasil2016 <- setNames(NewDBHasil2016, c("JAB","KOD_HASIL","DEBIT","KREDIT","SEBENAR","COUNT","PRCTR","HKONT","TAHUN"))
NewDBHasil2017 <- setNames(NewDBHasil2017, c("JAB","KOD_HASIL","DEBIT","KREDIT","SEBENAR","COUNT","PRCTR","HKONT","TAHUN"))

#Gabung 3 Data Frame NewDBHasil
MasterDBHasil <- rbind(NewDBHasil2014,NewDBHasil2015,NewDBHasil2016,NewDBHasil2017)
MasterDBHasil <- mutate(MasterDBHasil, Kategori = "Hasil")
#Cara convert ke integer
MasterDBHasil$TAHUN <- as.integer(as.character(MasterDBHasil$TAHUN))

#Gabung Table
MasterDBHasilChart <- rbind(NewDBHasil2014,NewDBHasil2015,NewDBHasil2016)

#Rename Column
MasterDBHasilChart <- MasterDBHasilChart[,c("DEBIT","KREDIT", "SEBENAR")]

#Gabung DbBajet Tahun 2014,2015 dan 2016
MasterDBBajet <- rbind(DBBajet2014, DBBajet2015, DBBajet2016)
MasterDBBajet <- mutate(MasterDBBajet, Kategori = "Bajet")


#Drop Blank Column
DBVotUrus2016 <- DBVotUrus2016[,-(5:7)]

#Gabung DBVotUrus Tahun 2014,2015 dan 2016
MasterDBVotUrus <- rbind(DBVotUrus2014, DBVotUrus2015, DBVotUrus2016)
MasterDBVotUrus <- mutate(MasterDBVotUrus, Kategori = "Belanja")

#######Filter DB Hasil By Tahun
MasterDBHasil_byTahun <- MasterDBHasil %>% 
  group_by(TAHUN) %>%
  summarise(Jumlah = sum(SEBENAR))
MasterDBHasil_byTahun <- mutate (MasterDBHasil_byTahun,Kategori= "Hasil")

#######Filter DB Bajet By Tahun
MasterDBBajet_byTahun <- MasterDBBajet %>% 
  group_by(TAHUN) %>%
  summarise(Jumlah = abs(sum(JUMLAH_BAJET)))
MasterDBBajet_byTahun <- mutate (MasterDBBajet_byTahun,Kategori= "Bajet")

#######Filter DB Bajet By Tahun
MasterDBBelanja_byTahun <- MasterDBVotUrus %>% 
  group_by(TAHUN) %>%
  summarise(Jumlah = sum(JUMLAH_SEBENAR))
MasterDBBelanja_byTahun <- mutate (MasterDBBelanja_byTahun,Kategori= "Belanja")
#write.table(MasterDBHasil_byTahun, file = "~/R/Audit-Dashboard/data/MasterDBHasil_byTahun.csv")

#Gabung MasterDBBajet, MasterDBHasil dan MasterVoturus

MasterDBMuktamad <- rbind (MasterDBBajet_byTahun,MasterDBBelanja_byTahun,MasterDBHasil_byTahun)



#Tambah Column TAHUN dan extract Value tahun dari COlumn Tarikh Baucer dan masukkan ke New Column TAHUN
#DBByrHariSama$TAHUN <- substr(DBByrHariSama$TARIKH_BAUCER, 7, 10)
#DBLebih14Hari$TAHUN <- substr(DBLebih14Hari$TARIKH_BAUCER, 7, 10)
#DBSediaLulusSama$TAHUN <- substr(DBSediaLulusSama$TARIKH_BAUCER, 7, 10)


]]> 2018-08-16 01:06:05 UTC https://padlet.com/JafriAM/LWJ2/wish/273371857