Projektinhallinta/hiekkalaatikko

R-koodi


library(OpasnetBaseUtils)
library(xtable)

############ tidy4: a function that cleans the tables from Opasnet Base. Uses S4 class.
# data is a table from op_baseGetData function
tidy4 <- function (data) {
	data$Result <- ifelse(!is.na(data$Result.Text), as.character(data$Result.Text), data$Result)
	if("Observation" %in% colnames(data)){test <- data$Observation != "Description"} else {test <- TRUE}
	if("Havainto" %in% colnames(data)){test <- data$Havainto != "kuvaus"}
	data <- data[test, !colnames(data) %in% c("id", "obs", "Result.Text")]
	if(sum(is.na(as.numeric(as.character(data$Result)))) == 0) {data$Result <- as.numeric(as.character(data$Result))}
	return(data)
	}


out <- budjettilaskenta("Op_fi2912", series_id = 4118, rahoittaja = "STM", projekti = "Tekaisu", työpaketti = "TP1", työpaketti.add = työpaketti.add, rahoittaja.add = rahoittaja.add, kustannuslaji.add = kustannuslaji.add, määrä.add = määrä.add, kuvaus.add = kuvaus.add)


out <- out[out$Työpaketti %in% työpakettirajaus, ]
if(vuosirajaus != "Kaikki") {out <- out[out$Vuosi == vuosirajaus, ]}

print(xtable(out), type = 'html')
print(xtable(budjettiyhteenveto(out, jaottelu)), type='html', html.table.attributes="class='sortable'")
print(xtable(budjettiyhteenveto(out[out$tulomeno == "Tulot", ], jaottelu)), type='html', html.table.attributes="class='sortable'")
print(xtable(budjettiyhteenveto(out[out$tulomeno == "Menot", ], jaottelu)), type='html', html.table.attributes="class='sortable'")
print(xtable(htkk(out, jaottelu)), type = 'html', html.table.attributes="class='sortable'")

tulot <- budjettiyhteenveto(out, c(3,5))
tulot <- data.frame(Kustannuslaji = "", tulot[tulot$tulomeno == "Tulot", ])

menot <- budjettiyhteenveto(out, c(3, 6))
menot <- menot[menot$tulomeno == "Menot", ]
menot$Rahoittaja <- ""

out <- rbind(menot, tulot)

if(vuosirajaus == "Kaikki") {
out$id <- rep(1:(nrow(out)/3), each = 3)
out <- reshape(out, timevar = "Vuosi", varying = list(c("2012", "2013", "2014")), v.names = "Summa", idvar = "id", direction = "wide")
out <- out[, colnames(out) != "id"]
}

print(xtable(out), type='html', html.table.attributes="class='sortable'")
Projektinhallinta/hiekkalaatikko

R-koodi

Navigointivalikko
