如何通过整数输入在文件中搜索结构。示例输出：提供书号：1。

Question

我如何通过二进制输入来搜索文件中的结构数据？ 示例输出：

给您的书号：01 加载中。 。 。 。 。 。 您的书可用。 您的书名：自学

Answer 1

您可以使用GTK GUI框架（gWidgets软件包）来创建自己的用户界面并实现GUI。请在下面看到从csv文件读取的代码，并指出是否可以使用给定ID的图书：

options("guiToolkit"="RGtk2")
library(RGtk2)
library(gWidgets)
library(gWidgetsRGtk2)


# Simulation
df <- data.frame(id = 1:3, name = c("War and Peace", "Batrachomyomachia", "Twylight"))
write.csv(df, "books.csv")

# Create GUI

main_win <- gwindow("Seeker")
window <- ggroup(
  horizontal = FALSE, 
  container = main_win)

button <- gbutton("Search", container = window)
edit <- gedit("1", container=window)
label = glabel("Enter the id", container=window)


# Handling logic
addhandlerclicked(button, handler = function(h,...) {
  svalue(h$action) <- "Loading..."

  df <- read.csv("books.csv", row.names = 1)
  Sys.sleep(1)
  id <- as.integer(svalue(edit))
  svalue(h$action) <- ifelse(nrow(df[df$id == id, ]) > 0, paste0(df$name[id], " is available"), "Not available")

}, action = label)

输出：