Nothing
library(MonetDB.R)
library(sqlsurvey)
db <- dbConnect( MonetDB.R() , "monetdb://localhost/acs")
data( api )
x <- apiclus1
x$idkey <- 1:nrow( x )
# monetdb doesn't like the column name `full`
x$full <- NULL
# load the apiclus1 data set into the monetdb
dbWriteTable( db , 'apiclus1' , x , overwrite = TRUE )
dclus1 <-
sqlsurvey(
weight = 'pw' ,
id = 'dnum' ,
# fpc = 'fpc' ,
table.name = 'apiclus1' ,
key = "idkey" ,
database = "monetdb://localhost/acs" ,
driver = MonetDB.R() ,
user = "monetdb" ,
password = "monetdb"
)
# only a problem for factor variables..
# these all work
svymean( ~dname , dclus1 )
svymean( ~dname , dclus1 , se = TRUE )
svymean( ~dname , dclus1 , byvar = ~comp_imp )
# then this breaks!
svymean( ~dname , dclus1 , byvar = ~comp_imp , se = TRUE )
# ..and now these same three commands no longer work!
svymean( ~dname , dclus1 )
svymean( ~dname , dclus1 , se = TRUE )
svymean( ~dname , dclus1 , byvar = ~comp_imp )
# but then actual queries do work
dbGetQuery( db , 'select * from apiclus1 limit 2' )
dbRemoveTable(db,"apiclus1")
# delete these pesky tables
dbSendUpdate(db,paste0("DROP TABLE \"",grep("_m(f|m)_",dbListTables(db),value=T),"\";",collapse="\n"))
print("SUCCESS")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.