fix gsLibPath. #14

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: RProtoBufLib
 Type: Package
 Title: C++ headers and static libraries of Protocol buffers
-Version: 2.3.2
+Version: 2.3.3
 Author: Mike Jiang
 Maintainer: Mike Jiang <[email protected]>, Jake Wagner <[email protected]>
 Description: This package provides the headers and static library of

R/build.R

@@ -77,15 +77,15 @@ gsLibPath <- function(suffix = "") {
   pbSupported <- list(
     "Darwin" = paste("libGatingSet.pb", suffix, ".dylib", sep = ""), 
     "Linux" = paste("libGatingSet.pb", suffix, ".so", sep = ""), 
-    "Windows" = paste("libGatingSet.pb", suffix, ".dll", sep = ""),
+    "Windows" = paste("GatingSet.pb", suffix, ".o", sep = ""),
     "SunOS" = paste("libGatingSet.pb", suffix, ".so", sep = "")
   )
   # browser()
   if ((sysname %in% names(pbSupported)) && !isSparc()) {
     libDir <- "lib/"
     if (sysname == "Windows")
       libDir <- paste(libDir, .Platform$r_arch, "/", sep="")
-    system.file(paste(libDir, "GatingSet.pb.o", sep = ""), 
+    system.file(paste(libDir, pbSupported[[sysname]], sep = ""), 
                 package = "RProtoBufLib")
   } else {
     NULL