Use the r_lock! when getting R version info (#25)

* Fix typo

* Use the `r_lock!` when getting R version info

Author: DavisVaughan

crates/ark/src/interface.rs

@@ -535,7 +535,7 @@ pub fn listen(exec_recv: Receiver<Request>, prompt_recv: Receiver<String>) {
     let mutex = unsafe { KERNEL.as_ref().unwrap() };
     {
         let mut kernel = mutex.lock().unwrap();
-        kernel.complete_intialization();
+        kernel.complete_initialization();
     }
 
     loop {

crates/ark/src/kernel.rs

@@ -31,6 +31,7 @@ use crossbeam::channel::Sender;
 use harp::exec::RFunction;
 use harp::exec::RFunctionExt;
 use harp::object::RObject;
+use harp::r_lock;
 use harp::r_symbol;
 use harp::utils::r_is_data_frame;
 use libR_sys::*;
@@ -87,9 +88,9 @@ impl Kernel {
     }
 
     /// Completes the kernel's initialization
-    pub fn complete_intialization(&mut self) {
+    pub fn complete_initialization(&mut self) {
         if self.initializing {
-            let version = unsafe {
+            let version = r_lock! {
                 let version = Rf_findVarInFrame(R_BaseNamespace, r_symbol!("R.version.string"));
                 RObject::new(version).to::<String>().unwrap()
             };