Skip to main content
cancel
Showing results for 
Search instead for 
Did you mean: 

Don't miss out! 2025 Microsoft Fabric Community Conference, March 31 - April 2, Las Vegas, Nevada. Use code MSCUST for a $150 discount. Prices go up February 11th. Register now.

Reply
Anonymous
Not applicable

How to use R script in power query ? for populating Column using if condition in R SCRIPT

Hi

I have a table A(exist in power bi data model)

Table A
IDNameFlag
111alexF
222padianT
333heyoT
444yopeF

I want to create a new column 'Flad des' using 'Flag column' by if condition in R SCRIPT, find the below exepected output for your reference.
O/P:

Table A
IDNameFlagFlag des
111alexFFALSE
222padianTTRUE
333heyoTTRUE
444yopeFFALSE


If you could help me it would be helpfull, also please share me the screehot if possible .

 

Thanks in advance

 

1 ACCEPTED SOLUTION
v-xuding-msft
Community Support
Community Support

Hi @Anonymous ,

 

Please try this:

 


dataset$Flag_des <- ifelse(dataset$Flag,"True","False")
output <- dataset

 

 

 

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45WMjQ0VNJRSsxJrQBSbkqxOtFKRkZGQHZBYkpmYh6QEQIWNDY2BrIzUivz4UImJiZAdmV+QSpEaywA", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [ID = _t, Name = _t, Flag = _t]),
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"ID", Int64.Type}, {"Name", type text}, {"Flag", type text}}),
    #"Run R script" = R.Execute("# 'dataset' holds the input data for this script#(lf)  #(lf)dataset$Flag_des <- ifelse(dataset$Flag ,""True"",""False"")#(lf)output <- dataset",[dataset=#"Changed Type"]),
    #"""output""" = #"Run R script"{[Name="output"]}[Value]
in
    #"""output"""

 

v-xuding-msft_0-1600250902132.png

 

Best Regards,
Xue Ding
If this post helps, then please consider Accept it as the solution to help the other members find it more quickly.

View solution in original post

2 REPLIES 2
v-xuding-msft
Community Support
Community Support

Hi @Anonymous ,

 

Please try this:

 


dataset$Flag_des <- ifelse(dataset$Flag,"True","False")
output <- dataset

 

 

 

let
    Source = Table.FromRows(Json.Document(Binary.Decompress(Binary.FromText("i45WMjQ0VNJRSsxJrQBSbkqxOtFKRkZGQHZBYkpmYh6QEQIWNDY2BrIzUivz4UImJiZAdmV+QSpEaywA", BinaryEncoding.Base64), Compression.Deflate)), let _t = ((type nullable text) meta [Serialized.Text = true]) in type table [ID = _t, Name = _t, Flag = _t]),
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"ID", Int64.Type}, {"Name", type text}, {"Flag", type text}}),
    #"Run R script" = R.Execute("# 'dataset' holds the input data for this script#(lf)  #(lf)dataset$Flag_des <- ifelse(dataset$Flag ,""True"",""False"")#(lf)output <- dataset",[dataset=#"Changed Type"]),
    #"""output""" = #"Run R script"{[Name="output"]}[Value]
in
    #"""output"""

 

v-xuding-msft_0-1600250902132.png

 

Best Regards,
Xue Ding
If this post helps, then please consider Accept it as the solution to help the other members find it more quickly.
Greg_Deckler
Super User
Super User

@Anonymous - 

Greg_Deckler_0-1599131818691.png

 



Follow on LinkedIn
@ me in replies or I'll lose your thread!!!
Instead of a Kudo, please vote for this idea
Become an expert!: Enterprise DNA
External Tools: MSHGQM
YouTube Channel!: Microsoft Hates Greg
Latest book!:
Power BI Cookbook Third Edition (Color)

DAX is easy, CALCULATE makes DAX hard...

Helpful resources

Announcements
Las Vegas 2025

Join us at the Microsoft Fabric Community Conference

March 31 - April 2, 2025, in Las Vegas, Nevada. Use code MSCUST for a $150 discount! Prices go up Feb. 11th.

Jan25PBI_Carousel

Power BI Monthly Update - January 2025

Check out the January 2025 Power BI update to learn about new features in Reporting, Modeling, and Data Connectivity.

Jan NL Carousel

Fabric Community Update - January 2025

Find out what's new and trending in the Fabric community.