R获取打开打印设备的类型png或pdf

在R中，我需要检查当前打开的绘图设备类型，例如：

png（“test.png”）；获取_dev_type（）
#答案应该是“png”
dev.off（）；获取_dev_type（）
#答案应该是“错误：找不到打开的绘图设备”
pdf（“test.pdf”）；获取_dev_type（）
#答案应该是“pdf”
发展主任（）
地块（0）；获取_dev_type（）
#答案应该是“x11”

我无法用

grDevices:：dev.*

函数解决这个问题

非常感谢您的帮助，
Chris

您可以使用

名称（dev.cur（））

：

get_dev_type[1]“png”
发展主任（）
#>RStudioGD
#>         2 
获取_dev_type（）
#>[1]“RStudioGD”
pdf（“test.pdf”）
获取_dev_type（）
#>[1]“pdf”
发展主任（）
#>RStudioGD
#>         2 
绘图（0）
获取_dev_type（）
#>[1]“RStudioGD”

您可以使用

名称（dev.cur（））

：

get_dev_type[1]“png”
发展主任（）
#>RStudioGD
#>         2 
获取_dev_type（）
#>[1]“RStudioGD”
pdf（“test.pdf”）
获取_dev_type（）
#>[1]“pdf”
发展主任（）
#>RStudioGD
#>         2 
绘图（0）
获取_dev_type（）
#>[1]“RStudioGD”
dev.cur（）
是否不满足您的需要？也许
names（dev.cur（））
难道
dev.cur（）
不能满足您的需要吗？可能是
名称（dev.cur（））