Sandbox: Difference between revisions
m (New test added) |
|||
Line 17: | Line 17: | ||
</math> | </math> | ||
== Kuopion rakennukset Google mapsilla test == | |||
<rcode name='kuorakonmaps'> | |||
library(rgdal) | |||
library(maptools) | |||
library(RColorBrewer) | |||
library(classInt) | |||
library(OpasnetBaseUtils) | |||
shp<-readOGR('PG:host=localhost user=postgres dbname=spatial_db','kuopio_house') | |||
plotvar<-shp@data$ika | |||
nclr<-8 | |||
plotclr<-brewer.pal(nclr,"BuPu") | |||
class<-classIntervals(plotvar,nclr,style="quantile") | |||
colcode<-findColours(class,plotclr) | |||
epsg4326String <- CRS("+proj=longlat +ellps=WGS84 +datum=WGS84 +no_defs") | |||
proj4string(shp)<-("+init=epsg:3067") | |||
shp2<-spTransform(shp,epsg4326String) | |||
kmlname<-"Kuopio house data" | |||
kmldescription<-"Random stuff about here" | |||
icon<-"http://maps.google.com/mapfiles/kml/pal2/icon18.png" | |||
name<-paste("ika value: ", shp2$ika) | |||
description <- paste("<b>Value:</b>",shp2$ika,"<br><b>Description:</b>",shp2$kayttotark) | |||
MyPointKML<-function(obj = NULL, kmlname = "", kmldescription = "", name = NULL, description = "", icon = "http://maps.google.com/mapfiles/kml/pal4/icon24.png",col=NULL) | |||
{ | |||
if (is.null(obj)) | |||
return(list(header = c("<?xml version=\"1.0\" encoding=\"UTF-8\"?>", | |||
"<kml xmlns=\"http://earth.google.com/kml/2.2\">", | |||
"<Document>", paste("<name>", kmlname, "</name>", | |||
sep = ""), paste("<description><![CDATA[", kmldescription, | |||
"]]></description>", sep = "")), footer = c("</Document>", | |||
"</kml>"))) | |||
if (class(obj) != "SpatialPointsDataFrame") | |||
stop("obj must be of class 'SpatialPointsDataFrame' [package 'sp']") | |||
if (is.null(name)) { | |||
name = c() | |||
for (i in 1:nrow(obj)) name <- append(name, paste("site", | |||
i)) | |||
} | |||
if (length(name) < nrow(obj)) { | |||
if (length(name) > 1) | |||
warning("kmlPoints: length(name) does not match nrow(obj). The first name will be replicated.") | |||
name <- rep(name, nrow(obj)) | |||
} | |||
if (length(description) < nrow(obj)) { | |||
if (length(description) > 1) | |||
warning("kmlPoints: length(description) does not match nrow(obj). The first description will be replicated.") | |||
description <- rep(description, nrow(obj)) | |||
} | |||
if (length(icon) < nrow(obj)) { | |||
if (length(icon) > 1) | |||
warning("kmlPoints: length(icon) does not match nrow(obj). Only the first one will be used.") | |||
icon <- icon[1] | |||
} | |||
col2kmlcolor <- function(col) paste(rev(sapply(col2rgb(col, TRUE), function(x) sprintf("%02x", x))), collapse = "") | |||
kml <- kmlStyle <- "" | |||
kmlHeader <- c("<?xml version=\"1.0\" encoding=\"UTF-8\"?>","<kml xmlns=\"http://earth.google.com/kml/2.2\">", "<Document>") | |||
kmlFooter <- c("</Document>", "</kml>") | |||
#for (i in 1:nrow(obj)) { | |||
for (i in 1:100) { | |||
point <- obj[i, ] | |||
pt_name = name[i] | |||
pt_description = description[i] | |||
pt_style <- paste("#style", ifelse(length(icon) == 1, 1, i), sep = "") | |||
kml <- append(kml, "<Placemark>") | |||
kml <- append(kml, paste(" <description><![CDATA[",pt_description, "]]></description>", sep = "")) | |||
#kml <- append(kml, "<Style><IconStyle>") | |||
#kml <- append(kml, paste("<color>", col2kmlcolor(col[i]), "</color>", sep ="")) | |||
#kml <- append(kml, paste(" <Icon><href>", icon, "</href></Icon>", sep = "")) | |||
#kml <- append(kml, "<scale>0.300000</scale>") | |||
#kml <- append(kml, "</IconStyle></Style>") | |||
kml <- append(kml, " <Point>") | |||
kml <- append(kml, " <coordinates>") | |||
kml <- append(kml, paste(point@coords[1], point@coords[2], sep = ",")) | |||
kml <- append(kml, " </coordinates>") | |||
kml <- append(kml, " </Point>") | |||
kml <- append(kml, "</Placemark>") | |||
} | |||
return(paste(paste(c(kmlHeader, kmlStyle, kml, kmlFooter), sep = "", collapse = "\n"), collapse="\n", sep = "")) | |||
} | |||
data <- MyPointKML(shp2,kmlname,kmldescription,name,description,icon,colcode) | |||
google.show_kml_data_on_maps(data) | |||
</rcode> | |||
=== GoogleMaps Sorvi MML TEST === | === GoogleMaps Sorvi MML TEST === |
Revision as of 10:43, 18 April 2012
Moderator:Ehac (see all) |
|
Upload data
|
http://ytoswww/yhteiset/YMAL/Projects/
Failed to parse (SVG (MathML can be enabled via browser plugin): Invalid response ("Math extension cannot connect to Restbase.") from server "https://wikimedia.org/api/rest_v1/":): {\displaystyle L_{Aeq} = 10 \log \int_{t_0}^{t_1} \frac{p_A^2(t)}{p_0^2} dt }
Failed to parse (SVG (MathML can be enabled via browser plugin): Invalid response ("Math extension cannot connect to Restbase.") from server "https://wikimedia.org/api/rest_v1/":): {\displaystyle \textstyle L_{Aeq} = 10 \log \int_{t_0}^{t_1} \frac{p_A^2(t)}{p_0^2} dt }
Kuopion rakennukset Google mapsilla test
GoogleMaps Sorvi MML TEST
GoogleMaps PostgreSQL test 2
GoogleMaps PostgreSQL test
Opasnet.csv test
Opasnet.data and BUGS test
Failed to parse (SVG (MathML can be enabled via browser plugin): Invalid response ("Math extension cannot connect to Restbase.") from server "https://wikimedia.org/api/rest_v1/":): {\displaystyle \alpha 444 + 9999 / 123}
Hello
- this works
Bluebox
- works
- ok
R-tools code include example
Rectangle area test