要捕获R Selenium库中的错误消息并将其写入日志，可以使用tryCatch函数来捕获异常并使用log文件记录错误消息。

下面是一个示例代码：

library(RSelenium)

# 创建一个日志文件
log_file <- file("error.log")

# 创建一个函数来执行Selenium操作
perform_selenium_operation <- function() {
  # 启动Selenium会话
  rD <- rsDriver()
  
  tryCatch({
    # 执行一些Selenium操作
    # ...
    
    # 关闭Selenium会话
    rD$client$close()
    rD$server$stop()
  }, error = function(e) {
    # 将错误消息写入日志文件
    writeLines(paste("Error:", e$message), log_file)
    
    # 关闭Selenium会话
    rD$client$close()
    rD$server$stop()
  })
}

# 执行Selenium操作并捕获错误消息
perform_selenium_operation()

# 关闭日志文件
close(log_file)

在上面的示例中，我们首先创建了一个log_file对象来表示日志文件。然后，我们定义了一个perform_selenium_operation函数来执行Selenium操作。

在tryCatch函数中，我们将要执行的Selenium操作放在try代码块中。如果发生错误，tryCatch将捕获错误并执行error代码块中的代码。在error代码块中，我们使用writeLines函数将错误消息写入日志文件。

最后，我们调用perform_selenium_operation函数来执行Selenium操作并捕获错误消息。完成后，我们关闭日志文件。

请注意，上面的示例只是一个简单的示例，用于演示如何捕获和记录错误消息。您可以根据自己的需求进行修改和扩展。