R-Script Visual Runtime Error in Power BI Server
Hi Everyone, I wrote a R-Script that works/runs perfectly in Power BI Desktop but doesn't work when published to the Power BI Service. I'm not able to pinpoint the error, is it the pipe operator (%<%)? Any help would be highly apperciated, I've been struggling with this issue for some time now. Script Runtime Error: Evaulation Error: Level sets of factors are different R-Script: # The following code to create a dataframe and remove duplicated rows is always executed and acts as a preamble for your script: # dataset <- data.frame(ProjectName, Commodity, WBS_code, Months, Running_Total_V2, Total_Scope_V2, RTPercentCompleteV2, Project_Description) # dataset <- unique(dataset) # Paste or type your script code here: library(dplyr) library(ggplot2) library(RColorBrewer) proposal_project <- unique(dataset[["Project_Description"]]) # there are duplicates due to WBS df <- dataset %>% select(ProjectName, Commodity, Months, RTPercentCompleteV2) %>% distinct() # for projects with multiple entries for the same percent complete, keep the highest value df <- df %>% group_by(ProjectName, Commodity, RTPercentCompleteV2) %>% slice(which.max(Months)) %>% arrange(Months) # group by and interpolate pctcomplete <- seq(0.1, 1, by=0.05) df <- df %>% group_by(ProjectName, Commodity) %>% group_modify(~ {approx(.x$RTPercentCompleteV2, .x$Months, xout=pctcomplete) %>% data.frame()}) %>% ungroup() prop_df <- df %>% filter(ProjectName == proposal_project) # split out proposal data after transformations df2df <- df %>% filter(ProjectName != proposal_project) data_wo_proposal <- df2df %>% group_by(Commodity,x) %>% summarise_at(vars(y),list(mean_duration = mean)) # plot mindiff <- min(c(0)) maxdiff <- max(c(max(data_wo_proposal$mean_duration, na.rm=TRUE), max(prop_df$y, na.rm=TRUE))) ticks <- round(seq(mindiff, maxdiff, by=2)) tick_y <- seq(0,100, by=5) g <- ggplot(data=data_wo_proposal, aes(x=mean_duration, y=x, colour=Commodity)) + geom_line(linetype=2) + geom_point() final_plot <- g + geom_line(data = prop_df, aes(x=y,y=x,colour=Commodity)) + geom_point(data=prop_df,aes(x=y,y=x,colour=Commodity)) final_plot_label <- final_plot + labs(title='Average Duration of Reference Projects vs Proposal Project', subtitle=paste('Proposal Project:',prop_df$ProjectName[1], '(solid line in figure below)'), x= 'Duration (Months)',y='Percent Complete') + theme_bw() + theme(legend.position='bottom', legend.title=element_blank()) + scale_colour_brewer(palette='Set1') + scale_x_continuous(breaks=ticks)+scale_y_continuous(labels = scales::percent_format(accuracy = 1),breaks=seq(0,1, by=.05)) final_plot_label Thank you, Val
Downloading r scripts on-the-fly
I'm attempting to create a custom visual that downloads r scripts on-the-fly, but am running into a challenge with getting it to work in the Power BI Service. I've created a custom visual based off the RHTML template that is supposed to plot a graph, but I wanted to solve for a solution where our analysts can maintain & tweak their models without having to recompile the Power BI visual. On the desktop, this seems to work wonderfully when I add have the following code in my script.r file and modelpath is a string parameter that is the URL to my file. #Import web file if path is defined if(modelpath != ""){ source(modelpath) } I'm able to post an r script to github and Power BI Desktop (along with R) are able to download and import the file from github. When I attempt to use this same visual with the online Power BI service, I get the following error: In file(filename, "r", encoding = encoding) : InternetOpenUrl failed: 'The server name or address could not be resolved' Please try again later or contact support. If you contact support, please provide these details. Does anyone have any suggestions?Change R visual to Custom visual with Tooltip
Thanks Advanced !!! Hi, I have tried to create R visual in power BI and i successfully complete that visual as well. Now the challange is i have change the R visual as Custom visual. because i need tooltip on my visual. Am totally blank on this, how can i acheive this. Your help is priceless.:mantongue:
R Script Colour Brewer
Hi Guys, I created an area graph, for 32 unique names. the main issue i'm having, is that whenever i try to make scale_fill_brewer(palette="Greens"), to work - it only colours 8 of the names, and leaves the rest of the names white. what i want is a way to shade the names into 32 unique shades of green automatically ( i cant just list 32 different greens, because if i add another name into the list, i dont want to go back in and edit the R-Script code).
