os check for windows is incorrect

[Jordan Mark Barbone]

sparklyr/R/utils.R

Lines 590 to 602 in 5fe4a80

 get_os <- function() { 
   if (.Platform$OS.type == "windows") { 
     "win" 
   } else if (Sys.info()["sysname"] == "Darwin") { 
     "mac" 
   } else { 
     "unix" 
   } 
 } 
  
 os_is_windows <- function() { 
   get_os() == "windows" 
 } 

os check on windows is incorrect (on 1.8.4.9004)