R operator of DimShuffle

theano/tensor/elemwise.py

@@ -218,6 +218,13 @@ class DimShuffle(Op):
             rval.insert(augm, 1)
         return [rval]
 
+
+    def R_op(self, inputs, eval_points):
+        if None in eval_points:
+            return [None]
+        return self.make_node(*eval_points).outputs
+
+
     def c_code(self, node, name, inp, out, sub):
         input, = inp
         res, = out