run publish in R