#2 bug in HTMLplot

[Anonymous]

The code that deals with WidthHTML at the end of HTMLplot is incomplete... should probably look like:
cat(paste("<p align=", Align, "><img src='", GraphFileName,
"' border=", GraphBorder, if (!is.null(Width)&&is.null(WidthHTML))
paste(" width=", Width, sep = "")
else "", if (!is.null(HeightHTML))
paste(" height=", HeightHTML, sep = ""), if (!is.null(WidthHTML))
paste(" width=", WidthHTML), ">", sep = "", collapse = ""),
file = file, append = TRUE, sep = "")