This may be a better example of what I am now thinking is probably a bug
in S4 dispatch:
> require("RMySQL") # or require("RSQLite")
Loading required package: RMySQL
Loading required package: DBI
[1] TRUE
> m <- dbDriver("MySQL") # or m <- dbDriver("SQLite")
> con <- dbConnect(m, dbname="test")
>dbGetQuery(con, "create table zzz (
vintage VARCHAR(20) NOT NULL,
alias VARCHAR(20) default NULL,
Documentation TEXT,
PRIMARY KEY (vintage)
);")
>dbListTables(con)
[1] "zzz"
> setClass("TSconnection", contains="DBIConnection",
representation(con="DBIConnection",
vintage = "logical",
panel = "logical"))
[1] "TSconnection"
> setAs("TSconnection", "DBIConnection", def = function(from) [EMAIL
> PROTECTED])
[1] "coerce<-"
> setIs("TSconnection", "DBIConnection", coerce = function(x) [EMAIL
> PROTECTED])
Warning message:
there is no automatic definition for as(object, "DBIConnection") <-
value when object has class "TSconnection" and no 'replace' argument was
supplied; replacement will be an error in: makeExtends(class1, class2,
coerce, test, replace, by, classDef1 = classDef,
> Tcon <- new("TSconnection", con=dbConnect(m, dbname="test"),
vintage=FALSE, panel=FALSE)
> is(Tcon, "DBIConnection")
[1] TRUE
I think this should work:
> dbListTables(Tcon)
Error in function (classes, fdef, mtable) :
unable to find an inherited method for function "dbListTables", for
signature "TSconnection"
but instead I have to do this:
> dbListTables(as(Tcon, "DBIConnection"))
[1] "zzz"
Paul
Paul Gilbert wrote:
>
>
> Seth Falcon wrote:
>
>> Paul Gilbert <[EMAIL PROTECTED]> writes:
>>
>>
>>
>>> (I am not sure if this is a bug or a request for a more
>>> understandable warning, or possible something obvious I should be
>>> posting on r-help.)
>>>
>>> I am trying to coerce an new class object to be a DBIConnection and
>>> it does not work the way I think it should:
>>>
>>> R version 2.5.1 (2007-06-27) ...
>>> > require("RMySQL") # or require("RSQLite")
>>> Loading required package: RMySQL
>>> Loading required package: DBI
>>> [1] TRUE
>>> > m <- dbDriver("MySQL") # or m <- dbDriver("SQLite")
>>> > con <- dbConnect(m, dbname="test")
>>> > dbGetQuery(con, "create table zzz (
>>> + vintage VARCHAR(20) NOT NULL,
>>> + alias VARCHAR(20) default NULL,
>>> + Documentation TEXT,
>>> + PRIMARY KEY (vintage)
>>> + );")
>>> NULL
>>> > dbListTables(con)
>>> [1] "zzz"
>>> > setClass("TSconnection", representation(con="DBIConnection",
>>> + vintage = "logical",
>>> + panel = "logical")
>>> + )
>>> [1] "TSconnection"
>>> > setAs("TSconnection", "DBIConnection", def = function(from) [EMAIL
>>> > PROTECTED])
>>>
>>
>>
>> I think things work as you expect up until this pint.
>>
>>
> Yes.
>
>>
>>
>>> > setIs("TSconnection", "DBIConnection", coerce = function(x)
>>> > [EMAIL PROTECTED])
>>>
>>
>>
>> I'm confused about what you want to do here. If you want TSconnection
>> to be a DBIConnection, why wouldn't you use inheritance?
>>
>> setClass("TSconnection", contains="DBIConnection", ...)
>>
>>
> Perhaps my logic is confused, it wouldn't be the first time, but I am
> thinking of this as going the "other direction" from inheritance. A
> MySQLConnection or SQLiteConnection inherits from DBIConnection. To
> actually use a DBIConnection or my TSconnection it will be necessary
> to have one of these, so I would need something like
>
> setClass("TSconnection", contains="MySQLConnection", ...)
>
> to make this work. (Actually, I have not been able to make it work,
> but that may just be the novice level of my experimenting.) I am
> hoping I can define the TSconnection using only DBIConnection classes
> and have it automatically work when one of the database driver
> packages is added. Otherwise I have to define the TSconnection for
> each of the driver packages, which is not as clean.
>
> Paul
>
>> + seth
>>
>>
>>
====================================================================================
La version française suit le texte anglais.
------------------------------------------------------------------------------------
This email may contain privileged and/or confidential inform...{{dropped}}
______________________________________________
R-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-devel
