इसे बिना किसी दिखाए साजिश सहेजें

Question

क्या इसे बिना किसी प्रारूप के साजिश को सहेजना संभव है?

मैं powerpoint के रेखांकन नकल करने में सक्षम आसानी से, यह प्रतियां क्लिपबोर्ड भूखंड होने के लिए एक छोटे से ggplot हैक किया है, लेकिन एक उपकरण खिड़की खुलते और बंद तेजी से देख सकते हैं, यह थोड़ा अजीब है, मैं इस से बच सकते हैं?

मैं windows और rstudio का उपयोग कर रहा हूं।

प्रतिलिपि प्रस्तुत करने योग्य कोड:

library(ggplot) 

`-.gg` <- function(e1,e2){ 
    assertthat::assert_that(is.numeric(e2), 
          length(e2)<= 2) 
    if(identical(e2,0)) return(invisible(NULL)) 
    W <- 8 
    H <- 4.5 
    dev.new(width=W * head(e2,1), height=H * tail(e2,1),noRStudioGD =TRUE) 
    print(e1) 
    savePlot("clipboard", type="wmf") 
    dev.off() 
    e1 
} 

ggplot(data.frame(x=1:10,y=1:10),aes(x,y)) + geom_point() - 1 - 0 

संपादित करें:

मेरे कोड, और चुने हुए समाधान, के साथ काम कर मुद्दे हैं semi-transparency.It के ठीक समय के सबसे अधिक है, लेकिन अपवाद नहीं होगा कष्टप्रद। हो सकता है कि एक सामान्य समाधान का मार्ग tempfile के साथ इसे सहेजना होगा, फिर इसे उचित आर फ़ंक्शन के माध्यम से या system का उपयोग करके कमांड लाइन के साथ क्लिपबोर्ड में पढ़ें (शायद कुछ ऐसा जो फ़ाइल को अदृश्य और प्रतिलिपि खोल देगा)। win.metafile() डिवाइस का उपयोग करें:

Answer 1

यह विंडोज पर काम करता है करने में सक्षम था। यदि आप कोई फ़ाइल नाम नहीं देते हैं, तो यह क्लिपबोर्ड पर सहेजता है। तो आपका कार्य

library(ggplot2) 

`-.gg` <- function(e1,e2){ 
    assertthat::assert_that(is.numeric(e2), 
          length(e2)<= 2) 
    if(identical(e2,0)) return(invisible(NULL)) 
    W <- 8 
    H <- 4.5 
    win.metafile(width=W * head(e2,1), height=H * tail(e2,1)) 
    print(e1) 
    dev.off() 
    e1 
} 

ggplot(data.frame(x=1:10,y=1:10),aes(x,y)) + geom_point() - 1 - 0 

Answer 2

खिड़कियों और R 3.4.2 पर, का उपयोग कर Sys.sleep झपकी के बजाय साजिश को देखने और याद आती है

`-.gg` <- function(e1,e2){ 
    assertthat::assert_that(is.numeric(e2), 
         length(e2)<= 2) 
    if(identical(e2,0)) return(invisible(NULL)) 
    W <- 8 
    H <- 4.5 
    dev.new(width=W * head(e2,1), height=H * tail(e2,1),noRStudioGD =TRUE) 
    print(e1) 
    savePlot("clipboard", type="wmf") 
    Sys.sleep(3) ## 
    dev.off() 
    e1 
} 

ggplot(data.frame(x=1:10,y=1:10),aes(x,y)) + geom_point() - 1 - 0