R gWidgetstcltk-警告消息

我正在使用gWidgetstcltk包创建一个可以操作绘图的GUI。它工作正常，但我收到几个警告信息。我必须展示这个软件包的使用，作为创建交互式情节的一种手段，所以我将被问到这些警告是什么意思。有没有办法摆脱它们，或者有人能解释是什么导致了它们

代码如下，我收到的警告信息如下：

Warning in str.default(val) : 'str.default': 'le' is NA, so taken as 0
Warning in str.default(obj, ...) :
  'str.default': 'le' is NA, so taken as 0
Error in envRefInferField(x, what, getClass(class(x)), selfEnv) : 
  ‘no_items’ is not a valid field or method name for reference class “SpinButton”

# Install and load required package
# install.packages(gWidgetstcltk)
library(gWidgetstcltk)

# Create the handler (function that the GUI will run when options are selected)
p <- function(...) {
  # svalue will grab the value the variable has been set too
  # Subsets based on year if all years has not been selected
  if (svalue(all.yrs)=="FALSE") {
    df<-subset(d2,d2$Year==svalue(yr))
  } else {
    df<-d2
  }

  # Subset by country if all is not selected
  if (svalue(cntry) != "All") {
    df<-subset(df,df$CntryName==svalue(cntry))
  }

  # Create the plot
  plot<-ggplot(df,aes(x=Expectancy,y=Fertility))+
    geom_blank()+
    scale_x_continuous(limits=c(15,90))+
    scale_y_continuous(limits=c(0,10))+
    scale_size_area(max_size=10)+
    theme_bw()

  # Add the geom based on selection
  if (svalue(type)=="Points") {
    plot<-plot+geom_point(aes(size=Population,colour=Region),alpha=0.8)
  } else if (svalue(type)=="Smooth") {
    plot<-plot+geom_smooth(aes(colour=Region),method="auto",alpha=0.8,size=2)
  }
  print(plot)
}

# Create window and add widgets
win_ctrls <- gwindow("Plot controls")
tbl = glayout(container=win_ctrls)
tbl[1,1]<-"Year: "
tbl[1,2] <- (yr <- gspinbutton(from = 1960, to= 2011, by=1, value = 1960,container = tbl,handler=p))
tbl[2,1]<-"All Years? "
tbl[2,2]<- (all.yrs<-gcheckbox("Yes", container=tbl,handler=p))
tbl[3,1]<-"Country: "
tbl[3,2]<-(cntry<-gcombobox(c("All",unique(as.character(d2$CntryName))), editable=FALSE, container=tbl, handler=p))
tbl[4,1]<-"Plot Type: "
tbl[4,2,expand=TRUE]<-(type<-gradio(c("Points","Smooth"),selected=1,index=FALSE,horizontal=TRUE,container=tbl,handler=p))

str.default（val）中的警告：'str.default'：'le'是NA，因此取为0
str.default（obj，…）中的警告：
'str.default'：'le'是NA，因此取为0
envRefInferField（x，what，getClass（class（x）），selfEnv）中出错：
“no_items”不是引用类“SpinButton”的有效字段或方法名称
#安装并加载所需的软件包
#install.packages（gWidgetstcltk）
库（gWidgetstcltk）
#创建处理程序（选择选项时GUI将运行的函数）
p问题似乎与Rstudio有关。如果我从控制台运行它，我不会收到任何错误。我想，如果这些是您收到的唯一警告，那么仅在该会话中运行它并不是犯规。