Mathematica exporting issues with Row[]

Question

I've had this issue for quite awhile - and it's quite frustrating. When publishing papers, we try to get all of our figures in .pdf for obvious reasons. Usually, Mathematica exports to .pdf just fine, except when you have plots in a Row[]. For example:

testplot=Row[{
Plot[Sin[x], {x, 0, 2 \[Pi]}, Frame -> True, 
        FrameLabel -> {"y", "x"}, ImagePadding -> {{100, 0}, {100, 0}}, 
        BaseStyle -> {FontSize -> 30, FontFamily -> "Times"}, 
        LabelStyle -> Black, ImageSize -> 900],

   Plot[Cos[x], {x, 0, 2 \[Pi]}, Frame -> True, 
    FrameLabel -> {"y", "x"}, ImagePadding -> {{0, 1}, {100, 0}}, 
    BaseStyle -> {FontSize -> 30, FontFamily -> "Times"}, 
    LabelStyle -> Black, ImageSize -> 800]
   }]

Export["~/Desktop/test.pdf", testplot]
Export["~/Desktop/test.png", testplot]

Should produce a nice side-by-side plot, where each plot uses the same y-axis. The .png output looks fine:

While the .pdf output messes up and wraps the second plot:

Has anyone seen this issue before? I've tried everything I can think of, but .pdf export just will not export side-by-side images!

Thanks in advance, Zack

Answer 1

You could use a Style wrapper to prevent line breaks:

Export["pdftest.pdf", Style[testplot, LineBreakWithin->False]];