Thank you. it looks like it worked:
```
> fasta.file <- "stx.fa"
> seq.df <- read_templates(fasta.file)
> fasta.file
[1] "stx.fa"
> seq.df
ID Header Group Identifier
Sequence_Length Allowed_Start_fw Allowed_End_fw
1 >MW311073.1 Escheric... >MW311073.1 Esch
Hi Abby,
Something along the line of:
setClass("S4Function",
contains="function",
representation(name="character", more_stuff="ANY")
)
seems to do what you want:
f <- new("S4Function", function(a) a^2, name="square")
# 'f' is both an S4 object and a function:
is.object(f)
2 matches
Mail list logo