The R Project SVN R

Rev

Rev 75092 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 75092 Rev 82591
Line 55... Line 55...
55 
}
 55 
}
56 
\seealso{
 56 
\seealso{
57 
  On all platforms,
 57 
  On all platforms,
58 
  \code{\link{txtProgressBar}}, \code{\link{tkProgressBar}}
 58 
  \code{\link{txtProgressBar}}, \code{\link{tkProgressBar}}
59 
}
 59 
}
- 
 
 60 
#ifdef windows
60 
\examples{\donttest{% popups are irritating
 61 
\examples{\donttest{% popups are irritating
61 
pb <- winProgressBar("test progress bar", "Some information in \%",
 62 
pb <- winProgressBar("test progress bar", "Some information in \%",
62 
                     0, 100, 50)
 63 
                     0, 100, 50)
63 
Sys.sleep(0.5)
 64 
Sys.sleep(0.5)
64 
u <- c(0, sort(runif(20, 0, 100)), 100)
 65 
u <- c(0, sort(runif(20, 0, 100)), 100)
Line 68... Line 69...
68 
    setWinProgressBar(pb, i, sprintf("test (\%s)", info), info)
 69 
    setWinProgressBar(pb, i, sprintf("test (\%s)", info), info)
69 
}
 70 
}
70 
Sys.sleep(5)
 71 
Sys.sleep(5)
71 
close(pb)
 72 
close(pb)
72 
}}
 73 
}}
- 
 
 74 
#endif
73 
\keyword{utilities}
 75 
\keyword{utilities}